Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select id,myname sex from usertable", db'在这里控制,用select xx,xx,xx,xx from来显示你想显示的列
Set DataGrid1.DataSource = rs
DataGrid1.Refresh