在线等 关于ComboBox控件数据邦定的总是

Question

各位高手，我在程序中用到一个问题，用一个DataGrid控件邦定到两个不同的表上，通过一个按钮来控制，可是在程序中没有能实现，代码如下：   ..........
   
    Dim cnnAuto As String
    cnnAuto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SYS32\ADDAuto.mdb" & ";Persist Security Info=False;
    Set DataCnnAuto = New ADODB.Connection
    DataCnnAuto.Open cnnAuto
    Set DataRstAuto = New ADODB.Recordset
    Set DataRstAuto.ActiveConnection = DataCnnAuto
    With DataRstAuto
        .Source = "Auto"
        .CursorLocation = adUseServer
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With
   Set txtJiaLei.DataSource = DataRstAuto
   txtJiaLei.DataField = "leixing"
Private Sub cmdAdd_Click()
   Set txtJiaLei.DataSource = DataEnv    '这是别外一个数据源
   txtJiaLei.DataMember="dbXueYuan"
   txtJiaLei.DataField = "leixing"end sub

Answer 1

.CursorLocation = adUseClient

Answer 2

可以的吧Private Sub Command1_Click()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.mdb;" & _
        "Persist Security Info=False"
    cnn.Open
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = cnn
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenStatic
    rst.Source = "Customers"
    rst.Open
    Set DataGrid1.DataSource = rst
End SubPrivate Sub Command2_Click()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.mdb;" & _
        "Persist Security Info=False"
    cnn.Open
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = cnn
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenStatic
    rst.Source = "Orders"
    rst.Open
    Set DataGrid1.DataSource = rst
End Sub

Answer 3

With DataRstAuto
        .Source = "Auto"
        .CursorLocation = adUseClient'使用客户端游标
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
End With