[egyman]

The INSERT INTO statement contains the following unknown field name: 'Code'. Make sure you have typed the name correctly, and try the operation again.
---------------------------
OK
---------------------------
ظهرت تلك الرسالة علماً ان هذا الحقل فى قاعدة البيانات Number

كود :

sSQL = "INSERT INTO [Main] ([Code], [txtLastName], [dtpDOB], [area], [line], [note])"
            sSQL = sSQL & "  VALUES(@fileno, @drname, @date, @area, @line, @note)"
            cmd.CommandText = sSQL
            

            'set paramaters
            cmd.Parameters.Add("@fileno", OleDbType.VarChar).Value = IIf(Len(Trim(Me.Code.Text)) > 0, Me.Code.Text, DBNull.Value)
            cmd.Parameters.Add("@drname", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtLastName.Text)) > 0, Me.txtLastName.Text, DBNull.Value)
            cmd.Parameters.Add("@date", OleDbType.Date).Value = IIf(Me.dtpDOB.Text <> " ", Me.dtpDOB.Value, DBNull.Value)
            cmd.Parameters.Add("@date", OleDbType.Date).Value = Me.dtpDOB.Text
            cmd.Parameters.Add("@area", OleDbType.VarChar).Value = IIf(Len(Trim(Me.area.Text)) > 0, Me.area.Text, DBNull.Value)
            cmd.Parameters.Add("@line", OleDbType.VarChar).Value = IIf(Len(Trim(Me.line.Text)) > 0, Me.line.Text, DBNull.Value)
            cmd.Parameters.Add("@note", OleDbType.VarChar).Value = IIf(Len(Trim(Me.note.Text)) > 0, Me.note.Text, DBNull.Value)

            cmd.ExecuteNonQuery()