DataGrid显示数据库中一个表的内容，为什么总出错？

Question

在模块中的代码：
Public cn As ADODB.ConnectionPublic Sub linkDataBase()
    On Error GoTo ErrorHandle
        Dim cn As ADODB.Connection
        Set cn = New ADODB.Connection
        cn.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXCsystem "
        cn.Open
        If cn.State = adStateOpen Then _
        MsgBox "数据库连接成功！"
        Exit Sub
ErrorHandle:
       MsgBox Err.Description
       End
End Sub在一个窗体中的代码：
Private Sub Form_Load()
    On Error GoTo ErrorHandle
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        rs.Open "产品信息表", cn, adOpenKeyset, adLockOptimistic
        Set DataGrid.DataSource = rs
        DataGrid.Refresh
ErrorHandle:
        MsgBox "调用数据失败！请您确认数据库正常。", vbCritical, "系统警告"
End Sub为什么显示不出来?

Answer 1

调试时屏蔽掉错误处理语句，让系统直接提示错误。
Private Sub Form_Load()
    'On Error GoTo ErrorHandle
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        rs.Open "产品信息表", cn, adOpenKeyset, adLockOptimistic
        Set DataGrid1.DataSource = rs 'DataGrid控件的名称是否正确？
        DataGrid.Refresh
        Exit Sub
ErrorHandle:
        MsgBox "调用数据失败！请您确认数据库正常。", vbCritical, "系统警告"
End Sub

Answer 2

rs.Open "产品信息表", cn, adOpenKeyset, adLockOptimistic
rs.opne "select * from 产品信息表",cn,3,2试试呢，

Answer 3

rs.open 的時候cn是否已經連接啊,看看cn.state