01.
Dim
DataAdapter1
As
New
OleDbDataAdapter
02.
Dim
DataSet1
As
New
DataSet
03.
Dim
Sql
As
String
=
"select * from user"
04.
DataAdapter1.SelectCommand =
New
OleDbCommand(Sql,Connect)
05.
Try
06.
DataAdapter1.Fill(DataSet1,
"show_user"
)
07.
08.
Catch
ex
As
Exception
09.
MsgBox(ex.Message)
10.
End
Try