[5分]用类模块，我在窗体中应用了代码，为何为报错？

窗体代码

Option Compare Database

Option Explicit


Private Sub Command1_Click()


    Dim DB1 As New AccessDB    'AccessDB是类模块的名字
    DB1.GetRS "select * from TA"
       
     DB1.RS.AddNew
     DB1.RS("A") = 1
     DB1.RS("B") = 2
     DB1.RS("C") = 3
     DB1.RS.Update
    
End Sub

点击下载此附件类模块代码

Option Compare Database
Option Explicit


Public Conn As ADODB.Connection
Public RS As ADODB.Recordset
'
Private Sub Class_Initialize()
    Set Conn = CurrentProject.Connection
    Set RS = New ADODB.Recordset
End Sub


Private Sub Class_Terminate()
    If Conn.State = 1 Then Conn.Close
    Set Conn = Nothing
    Set RS = Nothing
End Sub


Public Sub GetRS(ByVal sqlStr As String)
    On Error GoTo GetRS_Error
    RS.Open (sqlStr), Conn, adOpenKeyset, adLockOptimistic
    Exit Sub
GetRS_Error:
    MsgBox ERR.Description, , "系统提示"
End Sub


Public Function ExSQL(ByVal sqlStr As String) As Long
    Dim i As Long
    On Error GoTo ExSQL_Error
        Conn.Execute sqlStr, i
        ExSQL = i
    Exit Function
ExSQL_Error:
    MsgBox ERR.Description, , "系统提示"
End Function