在VB中，连接数据库有以下几种常见的方法：

1、使用 ADO（ActiveX Data Objects）对象库：ADO是一种用于访问数据库的COM组件，可以通过ADO连接数据库并执行SQL语句。你可以使用ADODB.Connection对象来建立与数据库的连接，然后使用ADODB.Recordset对象来执行查询和操作数据。

示例代码：

Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 连接数据库conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb"conn.Open' 执行查询语句rs.Open "SELECT FROM table_name", conn' 遍历结果集Do While Not rs.EOF ' 处理数据 rs.MoveNextLoop' 关闭连接和结果集rs.Closeconn.Close登录后复制

2、使用 OLEDB 数据提供程序：OLEDB是一种面向对象的数据库访问接口，可以通过OLEDB连接字符串连接数据库。你可以使用System.Data.OleDb命名空间中的类来连接数据库、执行SQL语句和处理数据。

示例代码：

Dim conn As New OleDbConnectionDim cmd As New OleDbCommandDim reader As OleDbDataReader' 连接数据库conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb"conn.Open' 执行查询语句cmd.CommandText = "SELECT FROM table_name"cmd.Connection = connreader = cmd.ExecuteReader' 遍历结果集Do While reader.Read ' 处理数据Loop' 关闭连接和读取器reader.Closeconn.Close登录后复制

3、使用 ODBC（Open Database Connectivity）数据源：ODBC是一种标准的数据库访问接口，可以通过ODBC连接字符串连接数据库。你可以使用System.Data.Odbc命名空间中的类来连接数据库、执行SQL语句和处理数据。

示例代码：

Dim conn As New OdbcConnectionDim cmd As New OdbcCommandDim reader As OdbcDataReader' 连接数据库conn.ConnectionString = "Driver={Microsoft Access Driver (.mdb)};Dbq=C:\path\to\database.mdb"conn.Open' 执行查询语句cmd.CommandText = "SELECT FROM table_name"cmd.Connection = connreader = cmd.ExecuteReader' 遍历结果集Do While reader.Read ' 处理数据Loop' 关闭连接和读取器reader.Closeconn.Close登录后复制