使用SQL server数据库VB.Net中的数据自动填充组合框。

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 创建数据库连接对象
        Dim connectionString As String = "Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
        Dim connection As New SqlConnection(connectionString)

        ' 打开数据库连接
        connection.Open()

        ' 创建SQL查询语句
        Dim query As String = "SELECT * FROM 表名"

        ' 创建SQL命令对象
        Dim command As New SqlCommand(query, connection)

        ' 执行SQL命令并获取查询结果
        Dim reader As SqlDataReader = command.ExecuteReader()

        ' 读取查询结果并添加到组合框
        While reader.Read()
            ComboBox1.Items.Add(reader("列名").ToString())
        End While

        ' 关闭数据库连接
        connection.Close()
    End Sub
End Class