给你ado连接的例子
Dim recTest As New ADODB.Recordset
'conTest是数据库连接
recTest.Open "select * from table", conTest, adOpenDynamic, adLockBatchOptimistic
Set dategrid1.DataSource = recTest