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

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.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 text_column FROM your_table WHERE id = @id"

        Using connection As New SqlConnection(connectionString)
            Dim command As New SqlCommand(query, connection)
            command.Parameters.AddWithValue("@id", 1) ' 假设我们要获取ID为1的记录

            Try
                connection.Open()
                Dim reader As SqlDataReader = command.ExecuteReader()
                If reader.Read() Then
                    TextBox1.Text = reader("text_column").ToString()
                End If
                reader.Close()
            Catch ex As Exception
                MessageBox.Show("Error: " & ex.Message)
            Finally
                connection.Close()
            End Try
        End Using
    End Sub
End Class