vb连接access数据库代码

在VB中连接Access数据库的代码如下：

1. 导入ADO组件：

在VB的工程中，需要先引用"Microsoft ActiveX Data Objects" (ADO) 组件。导入库的方式是：打开工程，点击“Project” 菜单 -》选择“Reference” -》 然后在“Available References”中勾选“Microsoft ActiveX Data Objects”选项即可。

2. 建立连接字符串：

连接字符串的格式一般如下：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;，其中，Provider表示数据提供程序，Jet OLEDB 4.0表示访问Access数据库，Data Source表示数据库文件路径，User Id和Password表示用户登录时使用的用户名和密码，如果没有设置，则设置为空。

3. 建立数据库对象：

使用代码新建一个ADO数据库对象，代码如下：

Dim MyCon As ADODB.Connection

Set MyCon = New ADODB.Connection

4. 建立连接：

使用ADO数据库对象进行数据库的连接，代码如下：

MyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;"

5. 执行SQL语句：

连接成功后，可以查询、添加、删除、更新等操作Access数据库中的数据，通过执行SQL语句实现，例如查询所有数据表中的数据，代码如下：

Dim rs As New ADODB.Recordset
rs.Open "select * from table1", MyCon, adOpenStatic, adLockOptimistic

6. 关闭连接：

数据库操作完成后，应当关闭数据库连接，代码如下：

MyCon.Close

以上就是VB连接Access数据库的代码，需要根据实际情况进行修改和调整。