100分！有关ADO访问access数据库的问题，在线等待

Question

dim cn as new adodb.connection 
cn.provider="Microsoft.Jet.OLEDB.4.0" 'or 3.51
cn.open "c:\test.mdb"

Answer 1

Dim myRst As New ADODB.Recordset
myRst.Open "Select TOP 1 * FROM mytable", con, adOpenStatic, adLockReadOnly, adCmdText

Answer 2

在VB中先选择”引用“
   选择”ADO 2.x  （根据你系统中的版本)
   选择一个ADO控件
   点击   “ 属性
   点击   “生成连接字符"
   选定数据库
   在连接字符中就产生了需要的   "连接字符"   在代码中
   dim cndb as new ADODB.connection
   cndb.open "连接字符"
   OK!
   给分

Answer 3

Dim cn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    cn.Open "provider=sqloledb;server=lys;database=acrdb;trusted_connection=yes"
    rst.Open "select * from listtab", cn

Answer 4

Dim Connstr as String;
Dim ssql as string;
Dim Conn As ADODB.Connection;
Dim Rs As ADODB.Recordset;ConnStr ＝ "Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False";
Conn.open connstr;
ssql = "select * from test";
rs.open ssql,conn,3,1;
以后就像SQL SERVER一样操作就可以了