Question

VB中用ADO与Access怎样连接？

定义完New ADODB.Connection连接后，其他语句格式都是怎样的？
像Open。Set之类的。
这个悬赏的没多贴，回答好的另追加50。

Answer 1

给楼主简单的演示一遍。
首先 工程->引用->DAO。。这个楼主应该会的吧
然后在画一个 Datagrid控件 （为了看数据库的内容，也可用其他的），其位置在常用控件的最后一个。
接着粘贴如下代码
当然在此之前，楼主要建立一个数据库，数据库名为students ，在建立一个表，命名为stu
（当然也可以取其它的名称），保存在此VB文件所在文件夹。。
Dim cn As New ADODB.Connection '定义一个新的连接
Dim rs As New ADODB.Recordset '定义一个新的记录
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\students.mdb" ' 打开此路径的数据库
rs.CursorLocation = adUseClient '游标设置
rs.Open "select * from stu", cn, adOpenStatic, adLockOptimistic '打开stu中的所有记录，*代表所有的记录
Set DataGrid1.DataSource = rs ' 与 DataGrid控件链接。
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
这么讲够详细了吧，不懂的可以HI我。

Answer 2

dim con as new ADODB.Connection ‘声明数据库连接对象
dim rs as new ADODB.recorder ‘声明数据集对象
con.open "Provider=Microsoft.jet.oledb.4.0;data source=数据库名称.mdb;persist security info=false" '打开数据库连接
if rs.state<>adstateclosed then rs.close ’打开数据集前先关闭
rs.open "select * from 你的数据表名称",con,adopendynamic,adlockpessimistic '这里打开数据集，其中的sql语句也可换成你自己需要的语句。后面的参数根据你的需要更改，会自动弹出提示的
……………… ‘其它语句
因为代码是自己敲的，所以大小写区分不是很好，你输入时会自动转化的，试试吧

Answer 3

先添加引用，在菜单---工程----引用，选择Microsoft ActiveX Data Objects 2.6 Library
(其他版本的也可以)
在模块中定义
Dim Rs As Recordset
Public conn As New ADODB.Connection

然后在form_load中定义数据库
Private Sub Form_Load()
dFile = "d:\test.mdb" '设置数据库名称
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dFile
conn.open
end sub
'然后就可以在别的过程中使用sql来访问数据库了
sql = "select * from 表名"
Rs.open conn, 1, 3
rs.movenext
Rs.Close
等等SQL语句都可以用。