怎么用vb连接sql数据库

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server_name;Database=your_database_name;User Id=your_username;Password=your_password;"
        Dim connection As New SqlConnection(connectionString)

        Try
            connection.Open()
            Console.WriteLine("Connected to the database.")

            Dim command As New SqlCommand("SELECT * FROM your_table_name", connection)
            Dim reader As SqlDataReader = command.ExecuteReader()

            While reader.Read()
                Console.WriteLine("ID: " & reader("id").ToString() & ", Name: " & reader("name").ToString())
            End While

            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module