01.Dim DD As New MySqlDataAdapter("select * from TableA ID", conn)
02. Dim DAA As New DataTable
03. DD.Fill(DAA)
04.
05. If DAA.Rows.Count > 0 Then
06. Dim tid As String
07. tid = DAA.Rows(0).Item("ID")
08. Dim A As String = ("0")
09.
10. If tid > A Then
11.
12. Dim Ad As New MySqlDataAdapter("select * from TableB where ID=" & tid, conn)
13. Dim DDSA As New DataTable
14. Ad.Fill(DDSA)
15. If DDSA.Rows.Count > 0 Then
16.
17. TextBox1.Text = DDSA.Rows(0).Item("id")
18.
19. Else
20.
21. End If
22.
23. End If
24.
25. End If
