vb怎么连接sql数据库

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        ' 数据库连接字符串
        Dim connectionString As String = "Server=你的服务器名;Database=你的数据库名;User Id=你的用户名;Password=你的密码;"
        
        ' 创建SqlConnection对象
        Using connection As New SqlConnection(connectionString)
            Try
                ' 打开连接
                connection.Open()
                
                ' 创建SqlCommand对象
                Dim command As New SqlCommand("SELECT * FROM 你的表名", connection)
                
                ' 执行命令并获取结果
                Dim reader As SqlDataReader = command.ExecuteReader()
                
                ' 读取并输出结果
                While reader.Read()
                    Console.WriteLine(reader("你的列名"))
                Next
                
                ' 关闭DataReader
                reader.Close()
            Catch ex As Exception
                Console.WriteLine("连接数据库时发生错误: " & ex.Message)
            Finally
                ' 关闭连接
                connection.Close()
            End Try
        End Using
    End Sub
End Module