Visual Basic - Ayuda para abrir access2003 con VB6

Hola amigos del foro, mi problema es que quiero utilizar access 2003 en una programacion de VB6, y no se si se pueda y si se puede como puedo hacerlo?. Les escribo una lineas para abrir archivos de access 1997 como lo utilizo y si me pueden ayudar con una linea para llamar las bd de access 2003 gracias.

Set wkspc = CreateWorkspace("", "admin", "", dbUseJet)
Set dbsusniños = wkspc.OpenDatabase("SUSNIÑOS.mdb", False, False)
Set rsetDelegacion = dbsusniños.OpenRecordset("Delegaciones", dbOpenTable)

rsetDelegacion.MoveFirst
Inicia = rsetDelegacion(3)

Con las 3 primeras lineas abro la base de datos de access 97, que lineas debo poner en lugar de estas para abrir una base de datos de access2003.
De antemano les agradesco la atencion prestada.

Bye

mejor lo intentas con ADO.
Hay demasiados ejemplos circulando, incluso yo mismo he puesto unos cuantos en este foro.

Le recomiendo que utilise ADO. Este cdigo me ha funcionado en mis aplicaciones. Le recomiendo bajar de la web el ejemplo que subí "Uso del Datareport", creado en VB 6.0

Dim ConeBase As Connection, Localizacion As String, Contraseña As String

Localizacion = App.Path +"\Datos.mdb" : Contraseña = "Datos123"

Set ConeBase = New Connection
ConeBase.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + " " + Localizacion + " " + ";Jet OLEDB:Database Password=" + " " +Contraseña
ConeBase.Open

Lo mejor es usar el antiguo DAO, pues ACCESS y VB 6.0 son muy buenos por el motor JET, en VB 6.0 debes asegurarte de incluir la librería de MICROSOFT DAO 3.6, esto lo ves en PROYECTO, REFERENCIAS.

Luego en VB pones algo así:

Public BaseDatos as Database
Public Rsttmp as Recordset

Private Sub Se_Conecta()
Set BaseDatos=Workspaces(0).opendatabase("rutacompleta de la base de datos\Nombredelabase.MDB")

Set rsttmp=BaseDatos.openrecordset("Tabla",dbopendynaset)

'Si vas a usar indices entonces debes abrir la tabla así
Set rsttmp=basedatos.openrecordset("Tabla",dbopentable)
Msgbox("Se conecto bien")
End Sub

Prueba y platica como te fue.
Ojala y te sirva.
SALUDOS

Puse todo como lo indicas pero cuando pasa para habilitar el recordset me manda un msg "13 no coinciden los tipos", que es lo que tengo que hacer o por donde le busco....

Gracias.