[alshandodi]

يجب ان يكون نفس الجدولين بنفس ID

كود :

    Dim cmd As New OleDb.OleDbCommand
       Dim cmd2 As New OleDb.OleDbCommand
       cmd = New OleDb.OleDbCommand("DELETE from Tbl1 where ID = " & LblID.Text, con)
       cmd2 = New OleDb.OleDbCommand("DELETE from  Tbl2 where ID = " & LblID.Text, con)
       con.Open()
       cmd2.ExecuteNonQuery()
       cmd.ExecuteNonQuery()
       MsgBox("تم حذف البيانات بنجاح", MsgBoxStyle.Information, "العملية")

أتمنى ان يكون ذو فائده لك