绑定控件就可以了 Dim cn As New ADODB.Connection Dim sn As New ADODB.Recordset cn.ConnectionString = "provider=SQLOLEDB;server=服务器名;uid=sa;pwd=;database=数据库名" cn.CursorLocation = adUseClient cn.Open sn.Open "select * from 表", cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = sn
Dim cn As New ADODB.Connection
Dim sn As New ADODB.Recordset
cn.ConnectionString = "provider=SQLOLEDB;server=服务器名;uid=sa;pwd=;database=数据库名"
cn.CursorLocation = adUseClient
cn.Open
sn.Open "select * from 表", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = sn