我运行的时候怎么老是出错阿
出错指向 cnn.Open ConnectStringPrivate Sub Form_Load() Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
Dim ConnectString As String
ConnectString = "FileDSN=d:\mmmmm.dsn;UID=admin;PWD="
 Set cnn = New ADODB.Connection
   cnn.Open ConnectString
  
      Set rst = New ADODB.Recordset
      rst.Open Trim$("select * from user"), cnn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = rst
End Sub