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