大家帮我看看,怎么了!~

Question

Public flagMedit As Boolean
Public flagIedit As Boolean
Public flagOedit As BooleanPublic Function ConnectString() As String
   ConnectString = "FileDSN=d:\LMS\library.dsn;UID=sa;PWD="
End FunctionPublic Function ExecuteSQL(ByVal SQL As String) As ADODB.Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   Set rst = New ADODB.Recordset
   rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
   Set ExecuteSQL = rst
End FunctionPublic Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Subcnn.Open ConnectString这句有错,
大哥大姐们帮我看看

Answer 1

首先 ConnectString  是公共变量么cnn.Open ConnectString的时候 ConnectString值是多少？