在vb中从数据库中读取SELECTing数据，并将数据输出到标签中。

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim connectionString As String = "Server=your_server;Database=your_database;User Id=your_username;Password=your_password;"
        Dim query As String = "SELECT column_name FROM table_name WHERE condition"

        Dim connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(query, connection)
        Dim adapter As New SqlDataAdapter(command)
        Dim dataset As New DataSet()

        Try
            connection.Open()
            adapter.Fill(dataset, "table_name")

            If dataset.Tables("table_name").Rows.Count > 0 Then
                Dim row As DataRow = dataset.Tables("table_name").Rows(0)
                Label1.Text = row("column_name").ToString()
            Else
                Label1.Text = "No data found"
            End If
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Class