Dim fso As New Scripting.FileSystemObject Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strcnn As String, strsql As String Dim cnt As Integer Private Sub exitcmd_Click() End End Sub

Private Sub MDIForm_Load() Adodc1.Visible = False Dim fsofolder As Folder If fso.FolderExists(App.Path & "\temp") Then Else Set fsofolder = fso.CreateFolder(App.Path & "\temp") Set fsofolder = Nothing End If mpath = App.Path If Right(mpath, 1) <> "\" Then mpath = mpath + "\" strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mpath & "rygl.mdb" cnn.Open strcnn End Sub

Private Sub viewicmd_Click() cnt = 0 strsql = "select * form input" rs.Open strsql, cnn 到这出错了为什么？？ 请指教