我用2003+sql2000这个是我用的代码:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.SqlDataAdapter2.Update(Me.DataSet51)
        Me.DataSet51.AcceptChanges()
    End Sub

这个是删除的:
Dim i As String

        Dim drow As DataRow

        If MessageBox.Show("你真的要删除这条记录吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2) = DialogResult.No Then Exit Sub



        i = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0).ToString()
        drow = DataSet51.Tables(0).Rows.Find(Int32.Parse(i))

        drow.Delete()
        SqlDataAdapter2.Update(DataSet51)