01.
Private
Sub
Button1_Click(sender
As
Object
, e
As
EventArgs)
Handles
Button1.Click
02.
Dim
sql =
"select ID, numbertest from table2 where numbertest like '"
& TextBox1.Text &
"'"
03.
adt =
New
OleDbDataAdapter(sql, dbconn)
04.
datatable =
New
DataTable
05.
adt.Fill(datatable)
06.
07.
DataGridView1.DataSource = datatable
08.
09.
End
Sub