Question

vb中如何在窗体上显示SQL数据表中的记录

Private Sub Form_Load()
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim strr As String
strr = "provider=sqloledb;server=funyunnetwork;uid=sa;pwd=123456;database=mdpos"
Cn.Open strr
MsgBox "数据库已连接"
strr = "select * from t_member"
Rs.Open strr, Cn, adOpenDynamic, adLockOptimistic
Set datagrid1.DataSource = Rs
End Sub
运行时Set datagrid1.DataSource = Rs为什么会出现实时错误424，要求对象
现在是数据显示不出来啊？

Answer 1

Cn.Open strr这句前面加上，
cn.CursorLocation = adUseClient

Answer 2

加载 datagrid1控件
Set datagrid1.DataSource = Rs---datagrid1.DataSource = Rs

cn.CursorLocation = adUseClient

Answer 3

窗体中需要有名称为datagrid1的控件

Answer 4

datagrid1.DataSource = Rs

Answer 5

窗体上有datagrid1控件吗？