直接按上面的兄弟方法用代码来链接数据库吗
Public adocmd As OleDbDataAdapter
Public cmd As OleDbCommandBuilder
Public mytable As Data.DataTable
public sqlprov as string="provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
==============
Dim sqlsele As String = "select * from admin where sm='" & Trim(username.Text) & "'"
Try
Dim ds As DataSet = New DataSet
adocmd = New OleDbDataAdapter(sqlsele, sqlprov)
adocmd.Fill(ds, "admin")
mytable = ds.Tables.Item(0)