[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