Error con DataSource !

[th0r]

Hola amigos quisiera saber el por que de mi error, no se si es la sintaxis o algun componente que falta.
Es del tema de ranelfi donde muestra como conectarse a una base de datos access.
Este es el Codigo :
-----------------------------------------------------------------------------------------------------------
Public BaseDatos As String
    Public Tabla As String
    Public Campo1 As String
    Public Campo2 As String
    Public Campo3 As String
   
    Public Conex As ADODB.Connecti on
    Public Rst As ADODB.Recordse t
   
   

Sub Conexion()
    BaseDatos = App.Path & "\ranefi.mdb"
    Tabla = "Datos"
    Campo1 = "Nombre"
    Campo2 = "Edad"
    Campo3 = "Direccion"
   
    Set Cnn = New ADODB.Connecti on
    Set Rst = New ADODB.Recordse t
   
    Cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseDatos
   
    Rst.Open "SELECT * FROM " & Tabla & " ORDER BY " & Campo1, _
        Cnn, adOpenDynamic, adLockOptimist ic
   
    Dim CuadrosTexto As TextBox
   
    For Each CuadrosTexto In Me.Text1
        Set CuadrosTexto.DataSource = Rst
    Next
   
    Text1(0).DataField = Campo1
    Text1(1).DataField = Campo2
    Text1(2).DataField = Campo3
End Sub

Private Sub Form_Load()
    Conexion
End Sub
-----------------------------------------------------------------------------------------------------------
Como ven resaltado con letra de mayor tamaño y el error me dice: "Error de compilación: No se encontro ni el método o el dato miembro"

[ranefi]

Hola th0r. Mira, ése error se debe a que no has creado un arreglo con los cuadros de texto; te explico, el código asume que existe un arreglo de 3 cuadros de texto (con índices 1, 0, 2),     ¿bien? Pues bueno, para crear dicho arreglo deberás:


1.- Agregar 1 TextBox

2.- Copiar el TextBox (clic derecho y copiar)

3.- Pegar el mismo TextBox (al momento de hacer eso te aparecerá un mensaje)

4.- Cuando te aparezca el mensaje da clic en Sí

5.- Cuando te aparezca un TextBox, vuelve a pegar otro TextBox

Con esto, ya deberás tener 3 TextBox con el mismo nombre (Text1) pero con índices diferentes (0, 1, 2) y tu problema estará solucionado.

Nota: Obviamente la base de datos debe llamarse ranefi y encontrarse en la misma ruta de la aplicación.

Espero y esto te ayude. Nos vemos.

[th0r]

Ranefi el problema es que la propiedad "Datasource"  no la toma.
Tengo visual basic 5, por ahi es eso.
Gracias por todo.