access的 DB.OpenRecordset对应ado的哪条？？

Question

dim rs as recordeset
Set Rc2 = DB.OpenRecordset("select * from table2")dim rs as new adodb.recordeset
rs.open "select * from table1",cn

Answer 1

Like this:Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset' After cn is openedWith rs
  '.ActiveConnection = cn
  '.CursorType =
  '.CursorLocation =
  '.LockType =
  .Open "Select * From TableName"
End With

Answer 2

对应于MyRs.Open sql, MyCnn
以下是ado编写的 '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function