[MOSTAFA.KAMEL]

(13-02-18, 01:47 AM)spoony كتب : cmd.commandtext= ("iinsert Into app ([empname]),([empass]),([empnum]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"

جرب هادا أخي ان شاء الله راح يزبط معك  وازا ما زبط  معك جرب هادا الكود 

   Try
            Dim Savecommand As New OleDb.OleDbCommand



            Dim newconnection As New OleDbConnection(Connectionstring)


            Savecommand.Connection = newconnection
            Savecommand.CommandType = CommandType.Text


            Savecommand.CommandText = "insert into "

            newconnection.Open()
            Savecommand.ExecuteNonQuery()
            newconnection.Close()

            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")
          

        Catch ex As Exception

            MsgBox(ex.Message, 16, "خطأ")

        End Try

تمام ياخى انا حليت المشكلة بس عايز كود مثلا لو السريال او الرقم الى مكتوبة فى ال textbox صح وموجودة فى قاعدة البيانات البرنامج يفتح مش موجودة يطلع رسالة خطاء