在Visual Basic（VB）中连接数据库实例，可以使用以下方法：
连接Access数据库
使用OleDbConnection类
```vb
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click（sender As Object, e As EventArgs） Handles Button1.Click
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0；Data Source=C:\path\to\database.accdb；"
Dim conn As New OleDbConnection（connectionString）
Try
conn.Open（）
' 连接成功后，可以执行查询操作或其他数据库操作
' 关闭连接
conn.Close（）
Catch ex As Exception
MessageBox.Show（"连接数据库时发生错误：" & ex.Message）
End Try
End Sub
End Class
```
连接SQL Server数据库
使用ADO.NET的SqlConnection类
```vb
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click（sender As Object, e As EventArgs） Handles Button1.Click
Dim connectionString As String = "Server=your_server_name；Database=your_database_name；User Id=your_username；Password=your_password；"
Dim conn As New SqlConnection（connectionString）
Try
conn.Open（）
' 连接成功后，可以执行查询操作或其他数据库操作
' 关闭连接
conn.Close（）
Catch ex As Exception
MessageBox.Show（"连接数据库时发生错误：" & ex.Message）
End Try
End Sub
End Class
```
连接SQLite数据库
使用SQLite的OleDb提供程序
```vb
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click（sender As Object, e As EventArgs） Handles Button1.Click
Dim connectionString As String = "Provider=System.Data.SQLite；Data Source=C:\path\to\your\database.sqlite；"
Dim conn As New OleDbConnection（connectionString）
Try
conn.Open（）
' 连接成功后，可以执行查询操作或其他数据库操作
' 关闭连接
conn.Close（）
Catch ex As Exception
MessageBox.Show（"连接数据库时发生错误：" & ex.Message）
End Try
End Sub
End Class
```
注意事项
确保数据库文件的路径和名称正确。
根据所使用的数据库类型，选择合适的连接字符串和提供程序。
处理异常，确保在连接失败时能够给出友好的错误提示。
在完成数据库操作后，及时关闭数据库连接以释放资源。
这些示例代码展示了如何在VB中连接到不同类型的数据库，并执行基本的数据库操作。根据具体需求，可以进一步扩展和优化这些代码。
