Dim DrUtenti As OleDbDataReader
            Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb") & " ;Persist Security Info=False")
            objConn.Open()
            Dim DrAssegnazioni As OleDbDataReader
            Dim strsql1 As String = "Select * from Utenti"
            Dim strsql2 As String
            Dim objCmd1 As New OleDbCommand(strsql1, objConn)
            Dim objCmd2 As OleDbCommand
            Dim testo As String
            dim appDataDalCorretta as String
            dim appdataalcorretta as String
            
           'Questi sono i valori che voglio assegnare ai parametri della query
            appdatadalcorretta = "12/01/2005"
            appdataalcorretta = "12/31/2005" 
            
            testo = ""
            'qui mi da errore dicendo che mancano alcuni parametri necessari
            DrUtenti = objCmd1.ExecuteReader()
            Do While DrUtenti.Read()

                strsql2 = "Select * from Query where DataInizio < ? and DataFine > ?"

                objCmd2 = New OleDbCommand(strsql2, objConn)
                'i parametri della query hanno questo nome,qui mi da errore
                objCmd2.Parameters.Add("@appDataAlCorretta", OleDbType.VarChar, 10).Value=DrUtenti("DataFine") 
                objCmd2.Parameters.Add("@appDataDalCorretta", OleDbType.VarChar, 10).Value=DrUtenti("DataInizio") 

                DrAssegnazioni = objCmd2.ExecuteReader()

                Do While DrAssegnazioni.Read()
                    testo = testo & DrAssegnazioni("Serial").ToString() & ";" & DrAssegnazioni("DataInizio").ToString() & vbCrLf
                Loop
                
                objCmd2.Dispose()
            Loop