如何使用vb.net (类、模块和窗体)将数据导入数据库

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
        Dim query As String = "INSERT INTO 表名 (列1, 列2, 列3) VALUES (@Value1, @Value2, @Value3)"

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Using command As New SqlCommand(query, connection)
                command.Parameters.AddWithValue("@Value1", TextBox1.Text)
                command.Parameters.AddWithValue("@Value2", TextBox2.Text)
                command.Parameters.AddWithValue("@Value3", TextBox3.Text)

                command.ExecuteNonQuery()
            End Using
        End Using

        MessageBox.Show("数据已成功导入数据库。")
    End Sub
End Class