如何从*.mdb中读出指定的多个记录

Question

如何从*.mdb中读出指定（如。5、6、42、12、56）的多个记录，（读5、6、42～）
读出后，把读出的记录生成一个文件，，把其中的指定的条件保存（如。5、6、42、12、56）为一个变量，，
希望兄弟朋友们可以帮我写个源码吧！感激不尽啊！
希望可以发到我邮箱[email protected]

Answer 1

dim rs as new ADODB.recordsetrs.open "Select * from Table1 where Id = 5 or Id = 6 or Id = 42 or Id = 12 or Id = 56",con,3,3

Answer 2

Dim strSQL As String
   
   dim conn as New ADODB.Connection
   dim rs as New ADODB.Recordset
   
   strSQL = App.Path & "\Biblio.mdb"
   strSQL = Replace(strSQL, "\\", "\")
   
   With conn
       If .State = adStateOpen Then
          .Close
       End If
       .CursorLocation = adUseClient
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & strSQL
       .Open
   End With
     
   With rs
       .Open "Select * from Table1 where Id = 5 or Id = 6 or Id = 42 or Id = 12 or Id = 56;", conn, adOpenStatic, adLockOptimistic
       If .BOF And .EOF Then
          msgbox "没有任何记录"
          Exit Sub
       End If
       .MoveFirst
       .movelast
       msgbox "有" & .recordcount & "条记录!"
   End With