Codigo Base de Datos

Quiero Abrir Base de Datos Y me da errores, soy novato y no encuentro el problema.

Lo hago asi.

Option Explicit

Private db As Database

Private rs As Recordset

Private Sub Form_Load()

Dim db As Database

Dim rs As Recordset

Const sPathBase As String = \"C:\\Archivos de programa\\Microsoft Visual Studio\\VB98\\BIBLIO.MDB\"

\' Crear el objeto de base de datos

Set db = OpenDatabase(sPathBase)

\' Crear el recordset con la tabla que queremos manipular

Set rs = db.OpenRecordset(\"Select [Au_ID],[Author],[Year Born] FROM Authors\", dbOpenDynaset)

Que Es lo Que esta mal?

Gracias

tierra' date='Apr 10 2007 dijo:

Const sPathBase As String = \"C:\\Archivos de programa\\Microsoft Visual Studio\\VB98\\BIBLIO.MDB\"

Haz clic para expandir...

No es por nada, pero así nunca lo llegue a hacer; solamente:

C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB