or
Private Sub txtProducedAt_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtProducedAt.TextChanged Dim iSql As String = "SELECT ID,SiteName FROM Sites WHERE SiteName = '" & txtProducedAt.Text & "' " Dim da As New OleDbDataAdapter(iSql, LoginForm1.Conn) Dim dTable As DataTable = New DataTable da.Fill(dTable) If dTable.Rows.Count = 0 Then Exit Sub ElseIf dTable.Rows.Count > 0 Then txtProducedAt.Text = dTable.Rows(0)("SiteName").ToString txtAccountNumber.Focus() End If End Sub




