Visual basic

Pues nose si te falte el adLockOptimistic:
  Rs. Open sql, db, adOpenStatic, adLockOptimistic
O talves un campo esta mal escrito por eso quisiera saber si me podrias proporcionar tu formulario y bd para checar porque te marca ese error.

si me da su correo conmucho gusto le amndo el proyecto comprimido! logre solucionar ese inconveniente! pero ahora tengo OTRO NUEVO a la hora de "INCLUIR UN CLIENTE" no me lo incluye en la base de datos me da error en db.excecute sql
mi correo es [email protected]
aki le dejo todos los codigos del proyecto, si me da su correo le envio el proyecto para q lo verifique mejor y me ayude! se lo agradeceria
MODULO
Public db As ADODB.Connection
Public rs As ADODB.Recordset
Public rs1 As ADODB.Recordset
Public cm As ADODB.Command
Public SQL As String
MDI FORM       (LOAD)
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub MDIForm_Load()
Set db = New ADODB.Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ProyectoSeguros\dbseguros.mdb;Persist Security Info=False"
End Sub
Private Sub mnuclientes_Click()
frmcliente.Show
End Sub
FORM LOAD .....el form load de CLIENTE
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ProyectoSeguros\dbseguros.mdb;Persist Security Info=False"
SOpt = dbSQLpasstrhough
txtnombre.Enabled = False
dtpFechaNac.Enabled = False
cmbsexo.Enabled = False
cmbedocivil.Enabled = False
txtestatura.Enabled = False
txtpeso.Enabled = False
txtdireccion.Enabled = False
txtemail.Enabled = False
txttlfhab.Enabled = False
txttlfofi.Enabled = False
txttlfcel.Enabled = False
cmdmodificar.Enabled = False
cmdguardar.Enabled = False
End Sub
Private Sub cmdguardar_Click() 'boton para guardar, aqui no me incluye en la base de datos
If Trim(txtnombre.Text) = "" Then
MsgBox ("Debe colocar un nombre"), vbInformation + vbOKOnly
txtnombre.SetFocus
Else
If Trim(dtpFechaNac.Value) = "" Then
MsgBox ("Debe seleccionar una FECHA DE NACIMIENTO"), vbInformation + vbOKOnly
dtpFechaNac.SetFocus
Else
If Trim(cmbsexo.Text) = "" Then
MsgBox ("La opcion sexo esta vacio"), vbInformation + vbOKOnly
cmbsexo.SetFocus
Else
If Trim(cmbedocivil.Text) = "" Then
MsgBox ("Debe selecionar un ESTADO CIVIL"), vbInformation + vbOKOnly
cmbedocivil.SetFocus
Else
If Trim(txtdireccion.Text) = "" Then
MsgBox ("Debe introducir una DIRECCION"), vbInformation + vbOKOnly
txtdireccion.SetFocus
Else
If Trim(txtemail.Text) = "" Then
MsgBox ("Debe seleccionar un E MAIL"), vbInformation + vbOKOnly
txtemail.SetFocus
Else
If Trim(txttlfhab.Text) = "" Then
MsgBox ("Debe introducir un TELEFONO DE HABITACION"), vbInformation + vbOKOnly
txttlfhab.SetFocus
Else
If Trim(txttlfofi.Text) = "" Then
MsgBox ("Debe introducir un TELEFONO DE OFICINA"), vbInformation + vbOKOnly
txttlfofi.SetFocus
Else
If Trim(txttlfcel.Text) = "" Then
MsgBox ("debe introducir un CELULAR"), vbInformation + vbOKOnly
txttlfcel.SetFocus
cedcompleta = cmbced + txtced
 SQL = " insert into TCLIENTE (CLCIRif,CLNombre,CLFechanac,CLSexo,CLEdoCivil,CLEstatura,CLPeso,CLDir,CLTlfHab,CLTlfOfic,CLTlfCel,CLEmail)" _
    & " values ('" & cedcompleta & "', '" & txtnombre.Text & "','" & dtpFechaNac.Value & "', '" & cmbsexo.Text & "','" & cmbedocivil.Text & "','" & txtestatura.Text & "','" & txtpeso.Text & "','" & txtdireccion.Text & "','" & txttlfhab.Text & "','" & txttlfofi.Text & "','" & txttlfcel & "','" & txtemail.Text & "')"
 db.Execute SQL, SOpt
     MsgBox "Ciudad Incluida Exitosamente", vbInformation, "Inclusion de Registro"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Ya te envie un correo electronico a tu cuenta, para que ahi me puedas dejar tu archivo comprimido.