在VB（Visual Basic）中连接数据库通常使用ADObbs（ActiveX Data Objects bbs）或DAO（Data Access Object）技术。下面我将为你提供使用ADObbs连接数据库的示例代码。
确保你的VB项目已经添加了System.Data.SqlClient的引用。
下面是一个使用ADObbs连接SQL Server数据库的示例代码：
```vb
imports System.Data.SqlClient
Public Sub ConnectToDatabase()
' 连接字符串，替换为你的数据库连接信息
Dim connectionString As String=Integrated Security=True 打开连接
connection.Open()
' 执行查询语句并获取结果
Dim command As New SqlCommand(Table reader.Read()
' 处理数据逻辑...
End While
' 关闭数据读取器
reader.Close()
Catch ex As Exception
' 处理异常...
Finally
' 关闭连接
connection.Close()
End Try
End Sub
```
在上面的示例中，你需要将`connectionString`替换为你的数据库连接信息，例如服务器地址、数据库名称、用户名和密码等。然后，你可以创建一个`SqlConnection`对象，并使用`Open`方法打开连接。接下来，你可以创建一个`SqlCommand`对象来执行查询语句，并使用`ExecuteReader`方法获取查询结果。你可以遍历查询结果并处理数据。在处理完数据后，记得关闭数据读取器并关闭连接。
请注意，这只是一个简单的示例代码，用于演示如何使用ADObbs连接数据库。在实际应用中，你可能需要根据你的具体需求进行更多的处理和异常处理。
```vb
Impors Sysem.Daa.SqlClie
Public Sub CoecToDaabase()
' 连接字符串，需要替换为实际的数据库连接字符串
Dim coecioSrig As Srig=Daa Source=(local);Iiial Caalog=YourDaabase;Iegraed Securiy=True
' 创建连接对象
Dim coecio As ew SqlCoecio(coecioSrig)
' 打开连接
coecio.Ope()
' 执行查询语句
Dim commad As ew SqlCommad(SELECt FROM YourTable执行查询并获取结果
Dim reader As SqlDaaReader=commad.ExecueReader()
' 遍历结果集
While reader.Read()
Cosole.WrieLie(reader(0).ToSrig()) ' 输出第一列的值
Ed While
' 关闭连接
coecio.Close()
Ed Sub
```
在这个示例中，我们使用SqlCoecio类来创建连接对象，并使用连接字符串指定要连接的数据库。然后，我们使用SqlCommad类来执行查询语句，并使用SqlDaaReader类来读取结果集。我们关闭连接。
需要注意的是，这个示例代码仅适用于本地数据库。如果要连接到远程数据库，需要修改连接字符串以指定服务器的名称或IP地址以及登录凭据等。如果数据库有防火墙或其他安全措施，还需要进行相应的配置才能成功连接。