Imports System.Data Imports System.Data.SqlClient PublicClass Form1Class Form1 Dim ds As DataSet Dim da As SqlDataAdapter Dim cb As SqlCommandBuilder Dim cmd As SqlCommand Dim conn AsNew SqlConnection("data source=localhost;Database=HAWK;Integrated Security=SSPI;") PrivateSub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load conn.Open() cmd = conn.CreateCommand cmd.CommandText ="Select sID,sName,class,pro from studentInfo" da =New SqlDataAdapter(cmd) ds =New DataSet() da.Fill(ds) DataGridView1.DataSource = ds.Tables(0) End Sub PrivateSub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click cmd.CommandText ="Select sID,sName,class,pro from studentInfo" da =New SqlDataAdapter(cmd) cb =New SqlCommandBuilder(da) da.Update(ds) DataGridView1.Update() End Sub End Class