01.Private Sub cb_vat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_vat.SelectedIndexChanged
02.
03.
04. Dim dr As OleDbDataReader
05. Dim s As String = "select * from VAT where VatName = '" & cb_vat.Text & "' "
06. dr = ExecuteReader(s)
07. While dr.Read()
08.
09. tb_vat.Text = dr.Item("VatID").ToString
10.
11. End While
12.
13.
14. End Sub
