以下是使用VB.NET連接數據庫的基本代碼示例：

1. 首先需要在程序中引用 System.Data.SqlClient 命名空間。

2. 在代碼中定義連接字符串，指定要連接的數據庫服務器、數據庫名稱、用戶名和密碼等信息。例如：

Dim connStr As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"

3. 創建一個 SqlConnection 對象，使用連接字符串打開數據庫連接。例如：

Dim conn As New SqlConnection(connStr)
conn.Open()

4. 在需要執行 SQL 語句的地方，創建一個 SqlCommand 對象，并將 SQL 語句和 SqlConnection 對象傳遞給它。例如：

Dim sql As String = "SELECT * FROM myTable"
Dim cmd As New SqlCommand(sql, conn)

5. 調用 SqlCommand 對象的 ExecuteReader 方法執行 SQL 查詢，并獲取返回的數據。例如：

Dim reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
   ' 讀取數據并進行處理
End While
reader.Close()

6. 在程序結束時，關閉數據庫連接。例如：

conn.Close()

完整的示例代碼如下：

Imports System.Data.SqlClient

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ' 定義連接字符串
       Dim connStr As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"

       ' 創建 SqlConnection 對象并打開連接
       Dim conn As New SqlConnection(connStr)
       conn.Open()

       ' 創建 SqlCommand 對象并執行查詢
       Dim sql As String = "SELECT * FROM myTable"
       Dim cmd As New SqlCommand(sql, conn)
       Dim reader As SqlDataReader = cmd.ExecuteReader()

       ' 處理返回的數據
       While reader.Read()
           ' 讀取數據并進行處理
       End While

       ' 關閉連接和釋放資源
       reader.Close()
       conn.Close()
   End Sub
End Class