Visual Basic - Ayuda Error de Compilacion

Tengo un problema, me aparece un error en este código:

Private Sub Form_Load()
For i = 0 To Text1.Count - 1

Me marca el .count
Error de compilacion: no se encontro el metodo o miembro de datos

Que puedo hacer

Declaras la i? Te has asegurado que tienes un vector de Text1( )?

estas trabajando en tu textbox con un arreglo???
que es lo que quieres hacer exactamente en el load con tu textbox??

For i=0 to Controls.Count-1
If Controls(i) typeof is TextBoxt then.....
Next i

Hola les dejo este codigo a ver si me pueden ayudar. No logro definir algo que me falta para pode correr este formulario. el error que me da es el siguiente: ERROR DE COMPILACION...... NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO..Gracias de antemano

'Declaracion del objeto CONNECTION, el
'cual me permite acceso a una base de datos
Dim cn As ADODB.Connection
'Declaracion de un objeto RECORDSET, el cual
'representa los registros de una tabla
Dim rs As New ADODB.Recordset

Private Sub Buscar_Click()
Dim criterio As String
Dim val As Boolean
Dim criterio1 As String
criterio1 = "[CODIGO]=" & Text1.Text
rs.MoveFirst
If Option1.Value = True Then
Text6.Text = ""
If Text5.Text = "" Then
MsgBox "Ingrese Codigo del Centro"
Else
criterio = "[CODIGO]=" & Text5.Text
rs.Find criterio
val = validar()
End If
End If
If Option2.Value = True Then
Text5.Text = ""
If Text6.Text = "" Then
MsgBox "Ingrese Nombre del Centro"
Else
criterio = "[NOMBRE] like '*" & Text6.Text & "*'"
rs.Find criterio
val = validar
End If
End If
If val = True Then
refrescar
Else
'Para usar FIND primero debo posicionar hacer
'registro activo al primer registro ya que FIND
'empiesa a buscar desde donde esta parada y no vuelve
If Text5.Text <> "" Or Text6.Text <> "" Then
rs.MoveFirst
rs.Find criterio1
refrescar
MsgBox "Registro no existente"
Text5.Text = ""
Text6.Text = ""
End If
End If
End Sub

Private Sub Cancelar_Click()
rs.CancelUpdate
refrescar
desabilitar
End Sub

Private Sub Anterior_Click()
rs.MovePrevious
Posterior.Enabled = True
desabilitar
If rs.BOF = True Then
rs.MoveFirst
Primero.Enabled = False
Anterior.Enabled = False
Else
refrescar
End If
End Sub
'Procedimiento que me permite refrescar los textbox
Public Sub refrescar()
Text1.Text = rs!EDO
Text2.Text = rs!ESTADO
Text3.Text = rs!MUNI
Text4.Text = rs!MUNICIPIO
Text7.Text = rs!PAQ
Text8.Text = rs!PARROQUIA
Text9.Text = rs!CODIGO
Text10.Text = rs!NOMBRE
Text11.Text = rs!DIRECCION
Text12.Text = rs!ESTATUS
Text13.Text = rs!MESAS
Text14.Text = rs!TRANS
Text15.Text = rs!ELEC
Text16.Text = rs!Ciudad
Text17.Text = rs!Longitud
Text18.Text = rs!Latitud
Text19.Text = rs!Observaciones
End Sub

Private Sub Eliminar_Click()
Dim n As Integer
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs.Delete
End If
rs.MovePrevious
rs.MoveNext
refrescar
End Sub

Private Sub Modificar_Click()
desabilitar
End Sub

Private Sub Option1_Click()
Text6.Text = ""
End Sub

Private Sub Option2_Click()
Text5.Text = ""
End Sub

Private Sub Salir_Click()
Unload Me
End Sub

Private Sub Posterior_Click()
'Primero mueve al proximo registro
rs.MoveNext
desabilitar
'Si detecta que es el ultimo archivo
'mueve al ultimo registro de la tabla clientes
If rs.EOF = True Then
rs.MoveLast
Ultimo.Enabled = False
Posterior.Enabled = False
'No necesita refrescar porque estaba posicionado alli
'la ultima ves que se hizo click en el boton
Else
'Si no refresca
refrescar
End If
End Sub

Private Sub Primero_Click()
'Mueve al primer registro de la tabla clientes
rs.MoveFirst
refrescar
desabilitar
End Sub

Private Sub Ultimo_Click()
'Mueve al ultimo registro de la tabla clientes
rs.MoveLast
refrescar
desabilitar
End Sub

Private Sub Form_Load()
'Establesco la coneccion
'
'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = "bd3.mdb"
'Habre la conexion
'Si da error en cn.open -> Fijarme si el proveedor es el correcto
cn.Open
'Aqui se obtiene una serie de registros: en este caso de la
'tabla clientes
rs.Open "select * from Tabla1", cn, adoenkeyset, adLockOptimistic
rs.MoveFirst
refrescar
desabilitar
Option1.Value = True
End Sub

Private Sub Guardar_Click()
rs.Fields("EDO") = Text1.Text
rs.Fields("ESTADO") = Text2.Text
rs.Fields("MUNI") = Text3.Text
rs.Fields("MUNICIPIO") = Text4.Text
rs.Fields("PAQ") = Text7.Text
rs.Fields("PARROQUIA") = Text8.Text
rs.Fields("CODIGO") = Text9.Text
rs.Fields("NOMBRE") = Text10.Text
rs.Fields("DIRECCION") = Text11.Text
rs.Fields("ESTATUS") = Text12.Text
rs.Fields("MESAS") = Text13.Text
rs.Fields("TRANS") = Text14.Text
rs.Fields("ELEC") = Text15.Text
rs.Fields("Ciudad") = Text16.Text
rs.Fields("Longitud") = Text17.Text
rs.Fields("Latitud") = Text18.Text
rs.Fields("Observaciones") = Text19.Text
rs.Update
desabilitar
rs.MoveLast
End Sub

Private Sub Nuevo_Click()
rs.AddNew
limpiar
desabilitar

End Sub
Private Sub limpiar()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
End Sub

Public Sub desabilitar()
If Primero.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = False
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = False
Modificar.Enabled = True
Else
If Nuevo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Salir.Enabled = False
Buscar.Enabled = False
Eliminar.Enabled = False
Modificar.Enabled = False
Frame1.Enabled = False
Else
If Guardar.Value = True Or Cancelar.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Salir.Enabled = True
Buscar.Enabled = True
Eliminar.Enabled = True
Frame1.Enabled = True
Modificar.Enabled = True
Else
If Ultimo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Else
If Modificar.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Eliminar.Enabled = False
Buscar.Enabled = False
Frame1.Enabled = False
Else
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Eliminar.Enabled = True
Buscar.Enabled = True
End If
End If
End If
End If
End If
End Sub

Public Function validar() As Boolean
If rs.BOF = True Or rs.EOF = True Then
validar = False
Else
validar = True
End If
End Function

necesito ayuda con este cod
doctor = InputBox("Introduzca El Nº de Cedula del Doctor:", "BUSCAR DOCTOR")
If vbCancel = True Then
Unload Me(frmdoctor)
End If

If Not IsNumeric(COD) Then
MsgBox "CODIGO INCORRECTO", vbInformation
cmdbuscar_Click
Else
strSQL = "SELECT * FROM doctor WHERE Ci_doctor= " + doctor + ""
CRITERIO = "[Cedula]LIKE " & doctor & ""

With RsRecorset

Rs.MoveLast
Rs.Find CRITERIO
If Rs.BOF Or Rs.EOF Then
MsgBox "EL DOCTOR NO SE ENCUENTRA REGISTRADO", vbExclamation
cmdbuscar_Click
Else
refresc
End With
End If
End If
me genera error en el criterio.find
.find y me dice q mienbro de datos o metodo no encontrado

Por favor necesito ayuda me sale el siguiente error, quiero que al momento de hacer click en la base de datos que esta conectada de MySQL a Visual Basic se me cargue los datos a un form, pero me sale el siguiente error " Error de compilacion: no se encontro el metodo o miembro de datos", AQUI OS DEJO EL CODIGO DONDE ME SALE EL ERROR:


Set AdoRegistro = New ADODB.Recordset
AdoRegistro.Open "select * from tconsulta where COD_PACIENTE = " & Flex1.TextMatrix(Flex1.Row, 0), basetesis, adOpenDynamic, adLockReadOnly
If AdoRegistro.RecordCount > 0 Then

frmdatospersonales.txtconsultaprincipal = AdoRegistro.Fields!NUMERO_CONSULTA
frmdatospersonales.txtmotivospacienta = AdoRegistro.Fields!MOTIVOS_CONSULTA_DE_PACIENTE1
frmdatospersonales.txtmotivosacompañante = AdoRegistro.Fields!MOTIVOS_CONSULTA_SEGUN_ACOMPAÑANTE
frmdatospersonales.txtnumerohistoria = AdoRegistro.Fields!N_HISTORIA_CLINICA
frmdatospersonales.txtreceta = AdoRegistro.Fields!RECETA_MEDICA
frmdatospersonales.txtedadmeses = AdoRegistro.Fields!EDAD_MESES
frmdatospersonales.txtedadaños = AdoRegistro.Fields!EDAD_AÑOS

If AdoRegistro.Fields!ACOMPAÑANTE = "Solo" Then
frmdatospersonales.optsolo.Value = True
(EN ESTA LINEA ME SALE EL ERROR) ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Padre" Then frmdatospersonales.optpadre.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Madre" Then frmdatospersonales.optmadre.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Pareja" Then frmdatospersonales.optpareja.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Pariente" Then frmdatospersonales.optpariente.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Ambos" Then frmdatospersonales.optambos.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Otros" Then frmdatospersonales.optotros.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Amigo/a" Then frmdatospersonales.optamigos.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE Is Null Then
End If
End If