[SaedAmer]

تمام امر الحفظ تم لكن لما حاولت جيت افرغ الداتا سيت و املأها ب البيانات تاني اداني الخطأ ده

كود :

Try

           Dim cmd9 As New OleDbCommand

           Dim sql As String = "INSERT INTO mmm (Cient_Name,FaceBook,Client_Number,Address,Details,Feedback,Code) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','','" & DateTime.Now.ToString("HHmmss") & "')"


           conn9 = New OleDbConnection()
           conn9.ConnectionString = Constr9

           cmd9.CommandText = sql
           cmd9.Connection = conn9
           conn9.Open()
           cmd9.ExecuteNonQuery()
           conn9.Close()


       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try

       MsgBox("تم الحفظ بنجاح")
       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       Me.Hide()

       ds9.Clear()
       ds9 = New DataSet
       adapt9.Fill(ds9, "mmm")
       CRM_Form.DataGridView1.Show()