Ayuda con VB6 y BD

Primero la conexión
Esto lo pones en un modulo conexión
Public Cn As ADODB.Connection
Public Rs As ADODB.Recordset
Public Rs1 As ADODB.Recordset
Public Rs2 As ADODB.Recordset
'declaras las variables publicas
Public Sub Coneccion()
'On Error GoTo ERRORES
    Set Cn = New ADODB.Connection
    sruta = App.Path & ("\anses.mdb")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sruta & ";" & _
    "jet OLEDB:DATABASE PassWORD = sololea"
Exit Sub
ERRORES:
    MsgBox "Error en la Conexión a la Base de Datos", vbExclamation, "Error en Conexión"
    End
End Sub
Public Sub Abre(consulta As String)
'On Error GoTo ERRORES
Set Rs2 = New ADODB.Recordset
Rs2.Open consulta, Cn, adOpenDynamic, adLockOptimistic, 1
Exit Sub
ERRORES:
MsgBox "Error a Realizar SQL en la Base", vbExclamation, "Error en Consulta"
End Sub
dos procedimientos, uno para la conexion, tenes que poner la tuya
Y el otro es para recibir la consulta, podes agregar más parámetros para los tipos de cursores y lectura.
despues en el form en el load pones
Call Coneccion
ahi vas a llamar a la conexion para que se conecte a la base
ejemplo de un boton alta
Private Sub cmdalta_Click()
'On Error GoTo ERRORES
    Call Abre("select * from datos_prof")
    Rs.AddNew
        Rs!cuil = ArmaCuil
        Rs!legajo = txtleg.Text
        Rs!apellido = txtnombre.Text
        If txtcargo.Text <> "" Then
            Rs!cargo = txtcargo.Text
        End If
    Rs.Update
        Rs.Close
    MsgBox "SE DIO DE ALTA EL PROFESOR", vbExclamation, "NUEVO PROFESOR"
    Call Vaciar
    txtleg.SetFocus
Exit Sub
ERRORES:
   MsgBox "Error al Dar de Alta el Profesor, Verifique Datos", vbExclamation, "Error en Alta"
End Sub
ejemplo de un boton modificar
Private Sub cmdmodif_Click()
'On Error GoTo ERRORES
    Call Abre("select * from datos_prof where CUIL = '" & ArmaCuil & "' and legajo = " & txtleg)
            Rs!legajo = txtleg
            Rs!apellido = txtnombre
            Rs!cargo = txtcargo.Text
Rs.Update
        Rs.Close
        MsgBox "SE MODIFICO LOS DATOS DEL PROFESOR", vbExclamation, "MODIFICO DATOS PROFESOR"
        txtleg.SetFocus
    Else
    MsgBox "Debe Seleccionar un Profesor de la grilla", vbInformation, "ABM Profesores"
End If
Exit Sub
ERRORES:
MsgBox "Verificar Los Datos, !!!Recuerde Que el Cuil no se Modifica una Vez Cargado¡¡¡", vbExclamation, "Error en la Modificación"
End Sub
ejemplo de un boton eliminar con pregunta incluida
'On Error GoTo ERRORES
Private Sub cmdbaja_Click()
If ArmaCuil <> "" Then
    If MsgBox("Seguro Desea Eliminar al Profesor", vbExclamation + vbYesNo, "Eliminación de un Profesor") = vbYes Then
      Call Abre("delete * from datos_prof where CUIL = '" & ArmaCuil & "' and legajo = " & txtleg)
      Call Abre("delete * from licencias where CUIL = '" & ArmaCuil & "' and legajo = " & txtleg)
      txtleg.SetFocus
    End If
  Else
    MsgBox "Debe Seleccionar un Profesor de la grilla", vbInformation, "ABM Profesores"
End If
Exit Sub
ERRORES:
MsgBox "Error al Eliminar, Por Favor Verificar datos e intentar de Vuelta", vbExclamation, "Error"
Bueno es importante que leas y revises como se una un recordset, hay muchas formas de trabajarlos, esta forma es la más sencilla de aprender después vas a ir viendo que hay manera de trabajar los cursores para que tenga menos recursos la maquina y etc.
También hay muchísimas maneras de hacer una conexión, en internet tienes muchas variantes.
Empezá por el alta así vas ganando confianza y con 2 o 3 campos como mucho y le vas agregando de a poco.
Bueno, cualquier duda me avisas

Lo más práctico que se me ocurre para tu segunda pregunta del botón "nuevo" es que lo puedes ucultar en la userform para que no se vea y utiliza esta instrucción en la userform que lo contiene, cambiale a la userform el nombre como aparece aquí..
Private Sub UserForm_Activate()
CommandButton1_Click
Con esto se activará automáticamente el botón nuevo al activarse la userform...
Te aconsejo poner solo una consulta por vez para tener tiempo de ayudarte...
Después te contesto la tercera...

1. En el load no se ha cargado aun los datos en el control... eso supongo, porque yo jamas trabajado con esos controles
2. El label no hace parte del control de datos por eso te aparece el error, debes asignarle valores a cada campo del registro algo como data1. Recordset. fields(1) = "algo". Como te dije antes, es posible que no sea la sintaxis correcta, la debes investigar.
3. Para esto debes crear una consulta en SQL a la base de datos.
Revisa el curso de VB6 de guille, lo encuentras en www.elguille.info

para lo primero, entra aqui http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico2.htm
Ahí hay una referencia a lo que preguntas.
Para lo segundo no trabajo con data.
Y para lo tercero, debes aprender SQL inmerso, así se hará más fácil el tema de ejecutar vía query las consultas. por ejemplo SELECT * FROM personas WHERE sexo = 'Femenino' AND edad BETWEEN '20' AND '30'
Eso es una query y ademas eso mismo lo puedes poner en un formulario en un botón en lo que quieras... cualquier consulta no dudes en preguntarlo t epuedo ayudar...

Pues como todos empezamos sin conocer nada de la programación, tomamos lo que creemos que es fácil je je pero no te preocupes, acá te dejo mi página en Taringa para que mejor utilices el DataGrid que es el más común para hacer lo que me pides pues tiene más cosas y mejor manejabilidad que el data.
Post Taringa Visual Basic 6
Acá te espero para ver que dudas te provoca el Datagrid, también te dejo mi correo ([email protected]) por si necesitas ayuda más especifica o en tiempo real por messenger.
Un Saludo.. Feliz Halloween xD..
L.I. Juan Carmona.

Para poderte ayudar mejor necesito que me envíes tu proyecto a [email protected] para checar mejor todo tu código e identificarlo más fácil.
Disculpa por tardar en responder, no volverá a pasar.