Database HJÆLP!!!

Hvorfor fungerer det her ikke??
Private Sub Command1_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim strSQL As String
   
    strSQL = \"SELECT Svar FROM QuizTable WHERE Id=\'1\'\"
    Set db = OpenDatabase(\"C:\\Programmer\\Microsoft Visual Studio\\VB98\\SpørgsmålDB.mdb\")
    Set rs = db.OpenRecordset(strSQL)
End Sub

Hvilke referencer skal der sættes når man bruger access 2000 og VB6.0 ???