1个DataGrid、1个ButtonImports system.data.sqlclientPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SqlDataAdapter1.Fill(DataSet11, "employees") End Sub Private Sub Btncom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim inststr As String inststr = "insert into employees(firstname,lastname)values(@Fname,@Lname)" Dim cmd As New SqlCommand(inststr, Me.SqlConnection1) cmd.Parameters.Add("@Fname", SqlDbType.VarChar, 20).Value = "三丰" cmd.Parameters.Add("@lname", "张") Me.SqlConnection1.Open() Dim cnt As Integer = cmd.ExecuteNonQuery() MessageBox.Show(cnt.ToString & "record(s)inserted") DataGrid1.Refresh() End Sub