Visual Basic - Ayuda Urgente sobre ADO

Hola Amigos

Tengo el siguiente problema en una rutina de VB6

Dim inicio
Dim fin
Dim cta
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim porciento, porcientotarjeta, tarjeta, porcientoosocial, osocial
Dim fld As ADODB.Field


Private Sub Form_Load()
DTPicker1.Value = (Date) - 360
DTPicker2.Value = (Date) - 360

End Sub
Private Sub Cmdcancelar_Click()
Unload Me
End Sub

Private Sub CmdAceptar_Click()

cn.Open "Asistcan"
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset

Continúa el código

La historia que cuando la ejecuto me aparece lo siguiente:

Microsoft Administrador de controladores ODBC - No se encuentra el nombre de origen de datos
y no se especificó ningún controlador predeterminado

Aclaro que la Base de Datos existe con el nombre correcto.

Esto me pasa luego que he tenido que reinstalar VB6, ya que se me rompió el disco

El proyecto tiene referencia a Microsoft ActiveXData ObjetsRecordset 2.5

Me faltará alguna referencia.?????

Bueno Agradezco cualquier ayuda

tu problema basicamente esta en la conexion de la base de datos sabes si el nombre es correcto como tu dices te falta expecificar la ruta donde esta la BASE DATOS y la TABLA que quieres abrir alli

quizas este ejemplo te ayude

Ademas el indece de la TABLA no lo OLVIDES

ademas de agregar por componetes
Microsoft active data objects 2.1 librery

observas este codigo es mas sencillo

Private Sub Form_Load()
cn.Open "provider =microsoft.jet.oledb.4.0; Data Source=C:\Produ\basepro.mdb;persist security info=false"
' CN.Open es la expecificacion de la coneccion que se hace con la base de datos en este caso microsoft

rs.Open "tcata", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
'Recordset es la variable que agrupa un conjuntos de registros de una TABLA o Mas
rs.Index = "clave01"
'pode actumaticamente la fecha en el textbox
txtFe.Text = Format(Date, "dd/mm/yyyy")

End Sub

NOTA LA CONEXION Y EL RECORDSET debe ponerlo junto
Si necesita ayuda escribeme
Rod

Necesito un codigo para crear una coneccion ODBC que accesa a la base de datos por medio de un DSN.
Rod si me puedes ayudar gracias

Creo que te ayudadaras esto

No esta claro que es lo que deseas
pero su pongo que es un conexion que quieres hacer utilizando DSN

es sencillo puede creala ya que es una herrramienta que viene con
Windows

debe ir a INICIO y luego HERRAMIENTAS

alli podras crearla como quieras

LUEGO DEBE ESPECIFICAR LA RUTA Y EL NOMBRE DEL dsn

Ejemplo
Option Explicit
Private cn As ADODB.Connection
Private mrs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Dsn=basepro;"
cn.Open
Set mrs = New ADODB.Recordset
mrs.LockType = adLockOptimistic
mrs.CursorType = adOpenKeyset
End Sub

en este caso el nombre con elcual guarde mi DSN es Basepro
el tuyo a tu criterio
Adios
Espero que te ayudes

Rod