Hola a todos, Bien , Actualmente en el colegio, Me estan dando VB y Manejo de Bases de datos. Los profesores de ambas asignaturas nos evaluaran con un sistema hecho en VB. El sistema tiene qe tener altas, bajas , cambios , Consultas. etc.

Bien , tengo un problema con  ADO, que segun entiendo es una herramienta para vincular bases de datos. Lo que tiene qe hacer mi progama es que al dar clic en un boton muestre otra ventana (esta contiene aprox. 12 tetxbox y 12 Label) en donde, los text box tienen qe tener Informacion de la base de datos. Pero al correr el programa me tira errores que ahora no recuerdo.

Dejo mi codigo fuente para ver si me pueden decir que va mal

Private Sub cmdAddNew_Click()
      Call clear
    ' Ejecuta el método AddNew para crear un registro
    lambo.AddNew
    ' Le pasa el foco al control
    Text2.SetFocus
    Frame2.Enabled = False
End Sub

Private Sub cmdMoveFirst_Click()
   
    lambo.MoveFirst
   
    ' Visualiza los  datos en los textbox
    Call Visualizar_Datos
End Sub

Private Sub cmdMoveLast_Click()

    ' Ejecuta MoveLast y se posiciona en el último registro
    lambo.MoveLast
   
    ' Visualiza los  datos en los textbox
    Call Visualizar_Datos
End Sub

Private Sub cmdMoveNext_Click()
 lambo.MoveNext
   
    ' Si no sobrepasó el final del recordset ...
    If lambo.EOF Then
       ' se posiciona en el ultimo
       lambo.MoveLast
       MsgBox " Se está en el ultimo registro  ", vbInformation
    Else
       ' Visualiza los  datos en los text box
       Call Visualizar_Datos
    End If
End Sub

Private Sub cmdMovePrevious_Click()
 lambo.MovePrevious
   
    ' si el recordset sobrepasó el comienzo se posiciona en el primero
    If lambo.BOF Then
       lambo.MoveFirst
       MsgBox " este es el Primer registro ", vbInformation, " Primer registro"
    Else
       ' Carga los datos
       Call Visualizar_Datos
    End If
End Sub
Private Sub Form_Load()

Dim reborn As New ADODB.Connection
Dim lambo As New ADODB.Recordset

    Set reborn = New ADODB.Connection
    ' establece la cadena de conexión a utilizar en la propiedad ConnectionString
  reborn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Documents and Settings\Propietario\Mis documentos\Base\Juegos.mdb"";Persist Security Info=False"""
    ' abre la base de datos
   
    reborn.Open
   
    ' Abre el recordset enviando la consulta sql
    
lambo.Open "Select * from Juegos,reborn , adOpenDynamic, adLockOptimistic"
   
    ' muestra los datos en los text
    Call Visualizar_Datos
End Sub

' Sub que asigna los datos al recordset
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Asignar_Datos()
   lambo("Producto") = Text1.Text
   lambo("Precio") = Text2.Text
   lambo("Consola") = Text3.Text
   lambo("genero") = Text4.Text
   lambo("Numero de Unidades") = Text5.Text
   lambo("Idioma") = Text7.Text
   lambo("Año") = Text6.Text
   lambo("Clasificacion") = Text8.Text
   lambo("Numero de producto") = Text9.Text
   lambo("Desarrolladores") = Text10.Text
   lambo("Jugadores") = Text11.Text
End Sub

' Sub que carga los datos del recordset y los asigna a los textbox
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Visualizar_Datos()
   Text12.Text = CLng(lambo("Id"))
   Text1.Text = lambo("Producto")
   Text2.Text = lambo("Precio")
   Text3.Text = lambo("Consola")
   Text4.Text = lambo("genero")
   Text5.Text = lambo("Numero de Unidades")
   Text7.Text = lambo("Idioma")
   Text6.Text = lambo("Año")
   Text8.Text = lambo("Clasificacion")
   Text9.Text = lambo("Numero de producto")
   Text10.Text = lambo("Desarrolladores")
   Text11.Text = lambo("Jugadores")
  
   End Sub
   ' Limpia las cajas de texto
Private Sub clear()
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
End Sub

La mayoria del codigo la saque de aqui http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/341-ejemplo-ado-con-codigo.htm

Disculpen las molestias, pero me estoy iniciando con esto y soy un poco torpe

espero qe me puedan ayuda, de Antemano Gracias