'Ctrl+t找Microsoft DataGrid Control.... '菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111" SqlStr = "Select * From 某个表" rst.CursorLocation = adUseClient rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 Set DataGrid1.DataSource = rst '给DataGrid修改数据源
select a.mid,sum(b.mAmount),sum(c.mAmount),sum(a.mAmount)-sum(c.mAmount) from mTable a,inTable b,outTable c where a.mid=b.mid=c.mid and b.mday= '2009-02-04 '本回答被提问者采纳