1个DataGrid、1个ButtonImports system.data.sqlclient Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SqlDataAdapter1.Fill(DataSet11, "employees")End SubPrivate Sub Btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dt As DataTable = DataSet11.Employees Dim dr As DataRow = dt.NewRow dr("employeeid") = 100 dr.Item("FirstName") = "三丰" dr.Item("LastName") = "张" dt.Rows.Add(dr)End SubPrivate Sub Btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SqlDataAdapter1.Update(DataSet11) DataSet11.Employees.Clear() SqlDataAdapter1.Fill(DataSet11.Employees) DataGrid1.Refresh()End Sub