[alaqsa]

كود :

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Do you want to delete the current record", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            Exit Sub
        End If
        Dim SavInto As New OleDb.OleDbCommand
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "DELETE FROM Table1 WHERE EmpNo ='" & Trim(TextBox3.Text) & "'"
        Conn.Open()
        SavInto.ExecuteNonQuery()
        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "Table1")
        Conn.Close()
        MsgBox("Deletion was successful")
        ChangePosition()
    End Sub