error con Dim nc As New Connection

[principefreddy]

hola les explico..

en el modulo tengo lo siguiente.:
Option Explicit
Public nc As New ADODB.Connection

Sub main()
On Error Resume Next
Call Conectar_Data
formmenu.Show
End Sub

Private Sub Conectar_Data()
Dim sPath As String
sPath = App.Path & "\bdregistro.mdb"
With nc
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bdregistro.mdb;Persist Security Info=False"
Debug.Print .State
End With

End Sub




ahora bien. en el formulario expediente tengo lo siguiente en el load
Dim nc As New Connection
Dim rs As New ADODB.Recordset


en el mismo formulario expediente tengo

private sub Guardar_Datos
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM expedientes", nc, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!cedula = CLng(txCedula.Text) ' cedula de identidad
rs!nombre = txNombre.Text ' nombres
rs!f_nacimiento = dtFechaNac.Value ' fecha de nacimiento
rs!l_nacimiento = txLugar.Text ' lugar de nacimiento
rs!direccion = txDireccion.Text
y termino con lo demas... el problema que se me presenta es que cuando lo ejecuto me dice que el uso de la palabra clave nex no es valido.. y me marca en azul lo siguiente : nc As New Connection (esto esta en el load ) lo estoy ejecutando desde el sub main. no entiendo que paso. es primera vez que programo de esta manera. espero me ayuden.