Dim mConn As New ADODB.Connection
Dim mRs As New ADODB.Recordset
mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tempDB.mdb;"
mConn.CursorLocation = adUseClient   '加上这一句试试
mConn.Open
mRs.Open "select * from tempTable", mConn
Set DataGrid1.DataSource = mRs