🚀 go-pugleaf

Salve
Ho un problema, Visual basic a volte non lo capisco proprio!

Ho un file DB in Access 2003 che si chiama Clendar.mdb, con al suo interno 
due tabelle una TCalendar con 366 record composti da 97 campi,
praticamente un griglia con tutti i quarti d'ora dell'anno, all'interno dei 
ogni campo c'� una lettera compresa tra A e F.
Nella seconda tabella TComp ci sono 6  record con 2 campi, praticamente una 
griglia che associa ad ogni
lettera da A a F un numero da 0 a 6 (A=0  B=1 ecc)

Devo creare una Funzione che mi ricavi il valore (NComp) contenuto
nella "cella" relativa al quarto d'ora attuale.

Ho provato con la seguente e tutto funziona fino alla riga contrassegnata 
con ***,
a questo punto il debug mi avvisa: Errore run-time 3061 Parametri 
insufficienti. Previsto 1
Il problema si risolve se al posto della variabile " & ValQuartodora & " 
sostituisco ad esempio 'B',
non capisco perch� tre righe riga prima ci sono addirittura due variabili 
inserite nella
stringa SQL ( "& NQuartodora & " e " & GiornoOggi & ") e funziona 
perfettamente, ValQuartodora viene estratto correttamente.

Function NComp() As Integer

    Dim dbsCalendar As Database
    Dim qdfTemp As QueryDef
    Dim GiornoOggi As Integer
    Dim rstTemp As Recordset
    Dim NQuartodora As String
    Dim qdfFascia As QueryDef
    Dim rstFascia As Recordset
    Dim ValQuartodora as String

    GiornoOggi = Format(Date, "y")
    NQuartodora = "F" & Quartodora

    Set dbsCalendar = OpenDatabase(App.Path & "\Calendar.mdb")

    With dbsCalendar
        Set qdfTemp = .CreateQueryDef("", "SELECT TCalendar.G, TCalendar." & 
NQuartodora & " From TCalendar WHERE (((TCalendar.G)=" & GiornoOggi & "));")
        Set rstTemp = qdfTemp.OpenRecordset()
        ValQuartodora = rstTemp(1)
***  Set rstFascia = .OpenRecordset("SELECT TComp.IDFascia, TComp.NComp From 
TComp WHERE (TComp.IDFascia=" & ValQuartodora &");")
        NComp = rstFascia(1)
        .Close
 End With
End Function

Qualcuno pu� darmi una dritta?

Grazie 1K per l'help