如何在VB.Net 2003中创建基于SQL数据自动加载文本的textbox？

Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"
Dim query As String = "SELECT TextColumn FROM YourTable WHERE ID = 1"

Using connection As New SqlConnection(connectionString)
    connection.Open()
    Using command As New SqlCommand(query, connection)
        Dim result As String = command.ExecuteScalar().ToString()
        TextBox1.Text = result
    End Using
End Using