1个DataGrid、1个ButtonImports.system.data.sqlclientPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dt As DataTable = New DataTable("myemployees") Me.SqlDataAdapter1.Fill(dt) Dim dr As DataRow = dt.NewRow dr.Item("EmployeeId") = "123" dr.Item("FirstName") = "三丰" dr.Item("LastName") = "张" dt.Rows.Add(dr) DataGrid1.DataSource = dtEnd Sub