[mazen]

انا حاولت بالاكواد دية ونفعت معايا بس المشكة في الحفظ
cmd.CommandText = "SELECT Employee.Emp_ID ,Employee.Emp_Name ,Employee.Emp_Tel , Dep_Name FROM Employee , Department where Employee.Dep_id = Department.Dep_id "

DataAdapter1 = New OleDbDataAdapter(cmd)
Dim builder As New OleDbCommandBuilder(DataAdapter1)

DataSet1 = New DataSet()

'Load some data into the DGV

DataAdapter1.Fill(DataSet1, "DataTable1")

BindingSource1 = New BindingSource(DataSet1,
"DataTable1")



BindingSource2 = New BindingSource(DataSet1,
"DataTable1")



ودة كود الحفظ بس للاسف فشل معايا
Try
If BindingSource1.Count = 0 Then Beep() : Exit Sub
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1, "DataTable1")
count()
MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try