数据库问题……

Question

声明部分：
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New Command
    Dim strSelect As String
    Dim strConnection As String
代码部分：
Private Sub Form_Load()    strConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\MBA.mdb;"
    cnn.Open strConnection
   @ cnn.CursorLocation = aduserclient
    strSelect = "Select * from 交易"
    rs.Open strSelect, cnn
    Set DataGrid1.DataSource = rsEnd Sub
打@那行总出错，为什么？？？？

Answer 1

cnn.CursorLocation = adUseClient

Answer 2

放到 cnn.Open strConnection 前面。

Answer 3

aduserclient中间多了一个r，应该是adUseClient，另外应该把这句话放到cnn.Open strConnection之前，即代码是：Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New Command
Dim strSelect As String
Dim strConnection As String'代码部分:Private Sub Form_Load()
    strConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\MBA.mdb;"
    cnn.Open strConnection
   cnn.CursorLocation = adUseClient
    strSelect = "Select * from 交易"
    rs.Open strSelect, cnn
    Set DataGrid1.DataSource = rs
End Sub