Visual Basic - un error en el codigo '3265'

Private Sub CmbGrabar_Click()
If Usua = True Then
Guardar = MsgBox("Guardar informacion del nuevo usuario?", vbQuestion + vbYesNo, "Alta de Usuarios.")
If Guardar = 6 Then
rec.Open "Usuariosist", db, adOpenKeyset, adLockOptimistic, adCmdTable
With rec
.AddNew
!usuar = TxtLogin.Text 'aca me sale el error NO SE ENCONTRO EL ELEMENTO EN LA COLECCION K CORRESPONDE CON EL NOMBRE o el ordinal pedido.
!Contraseña = TxtContraseña.Text
!Usuario = Dctipousuario.BoundText
!Nom = TxtNombre.Text
!Apell = txtApellidos.Text
!DNI = TxtNºdni.Text
!fono = TxtTelefono.Text
!grado = DCgrado.BoundText
!FecIngreso = DTPFechaIngreso.Value
.UpdateBatch adAffectCurrent
Ok = MsgBox("El usuario ya existe en la base de datos.", vbInformation, "Alta de Usuarios.")
CancelarUsu
rec.Close
End With
End If
End If
End Sub

garcias de antemanoa por su ayuda

bueno despues de With rec .AddNew van los nombres de tus campos de tu tabla por eso te sale el error y no podras guardar.
Espero que te sirva mi opinion