مشکل در کوئری append

[ariayekta]

سلام
چرا بجای کویری از کد استفاده نمیکنید خیلی رحتتره و برنامت هم الکی شلوغ نمیشه مثل یکی از این دو کد

کد 1

strSQL = "INSERT INTO Table1 (nam,neshan,sen) VALUES(text2,text4,text6)"



DoCmd.SetWarnings False

DoCmd.RunSQL strSQL

DoCmd.SetWarnings True

کد 2

            Dim dbs As DAO.Database

            Dim rst As DAO.Recordset

            

                Set dbs = CurrentDb

                Set rst = dbs.OpenRecordset("Table1")

        

                rst.AddNew

                rst!nam = Me.Text2

                rst!neshan = Me.Text4

                rst!sen = Me.Text6





               rst.Update