dategird不能初始化绑定(快帮帮忙吧，马上要交作业了)

Question

我把链接和定义记录集放在麽版中我的数据库连接没有报错
Public rsIssueInfo As New Recordset
Public cn As Connection
Public Sub main()
Set cn = New Connection
    cn.ConnectionString = "driver={SQL Server};server=xy-ecf587ce7818;datebase=labrary"
    cn.CursorLocation = adUseClient
    cn.Open
    
    If cn.State = adStateOpen Then        rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic    Else
        MsgBox "数据库连接错误！", vbCritical, "图书馆管理系统"
        End
    End If 
End Sub但是在别的模块中运行这句时去出错了
Set DataGrid1.DataSource = rsIssueInfo
    DataGrid1.ReBind   ''这句出错不能初始化绑定
是不是记录集有问题呢？
因为刚注册，第一个帖子发在了MSSQL区了没有得到解决。
所以没有分了，请各位快帮帮我吧快崩溃了！

Answer 1

当我改成这样时
If rsIssueInfo.State = adStateOpen Then
    rsIssueInfo.Close
     Else
     rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic
    Set DataGrid1.DataSource = rsIssueInfo
    DataGrid1.ReBind
    End If实时错误'-2147217865 (80040e37)'
[Microsoft][ODBC SQL Server Driver][SQL Server]对象名'Issue'无效可是我的数据库中明明有Issue这张表,请各位快帮帮我吧!是不是链接字符串有问题呢？怎么又ODBC了？我用的是adodb啊 各位好心人快帮帮忙吧

Answer 2

Option Explicit
    Public Cn As New ADODB.Connection
    Public rsIssueInfo  As New ADODB.Recordset
    Public SQL As StringPublic Sub main()
    On Error GoTo user
    Cn.ConnectionString = "driver={SQL Server};server=xy-ecf587ce7818;datebase=labrary"
    rsIssueInfo.CursorLocation = adUseClient
    SQL = "select * from Issue"
    rsIssueInfo.Open SQL, Cn, adOpenDynamic, adLockOptimistic
    Cn.Close
    Form1.Show
    Exit Sub
user:
    MsgBox "数据库连接错误！", vbCritical, "图书馆管理系统"
    End
End Sub

Answer 3

Private Sub Form_Load()
    Cn.ConnectionString = "driver={SQL Server};server=xy-ecf587ce7818;datebase=labrary"
    rsIssueInfo.CursorLocation = adUseClient
    SQL = "select * from Issue"    
    rsIssueInfo.Open SQL, Cn, adOpenKeyset, adLockPessimistic
    Set DataGrid1.DataSource = rsIssueInfo
End Sub