Dim rs, rs1, rs2 As DAO.Recordset
Dim db As DAO.Database
Dim query, query1, query2 As String
Dim j As Integer
Dim linea As String
Dim data_confronto, data_confronto1, data_confronto2, data_confronto3, data_confronto4 As Integer
    tip_an1 = "Tecnici"
    linea = "Linea 1"
Set db = DAO.OpenDatabase("Percorso database")
    query = "SELECT Descrizione_Anomalie.Data, Sum(Descrizione_Anomalie.Fermo) AS SommaDiFermo " & _
            "FROM Descrizione_Anomalie " & _
            "WHERE (((Descrizione_Anomalie.Data) >= #10/1/2008# And " & _
                    "(Descrizione_Anomalie.Data) <= #10/31/2008#) And " & _
                   "((Descrizione_Anomalie.Tipo_Anomalia) = '" & tip_an1 & "')and (Linea='" & linea & "')) " & _
            "GROUP BY Descrizione_Anomalie.Data"
    Set rs = db.OpenRecordset(query)
 
    ' Reset dlla zona di destinazione
    Worksheets("Ottobre_2008").Range("H54:AL54").Value = 0
 
    If rs.RecordCount > 0 Then
        rs.MoveFirst
       Do Until rs.EOF
            data_confronto = Day(rs("Data").Value)
            Worksheets("Ottobre_2008").Cells(54, 7 + data_confronto).Value = rs("SommaDiFermo")
            
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
  tip_an2 = "Organizzativi"
   
    
    query1 = "SELECT Descrizione_Anomalie.Data, Sum(Descrizione_Anomalie.Fermo) AS SommaDiFermo " & _
            "FROM Descrizione_Anomalie " & _
            "WHERE (((Descrizione_Anomalie.Data) >= #10/1/2008# And " & _
                    "(Descrizione_Anomalie.Data) <= #10/31/2008#) And " & _
                   "((Descrizione_Anomalie.Tipo_Anomalia) = '" & tip_an2 & "')and(Linea='" & linea & "')) " & _
            "GROUP BY Descrizione_Anomalie.Data"
    Set rs1 = DB.OpenRecordset(query1)
 
    ' Reset dlla zona di destinazione
    Worksheets("Ottobre_2008").Range("H55:AL55").Value = 0
 
    If rs1.RecordCount > 0 Then
        rs1.MoveFirst
       Do Until rs1.EOF
            data_confronto1 = Day(rs1("Data").Value)
            Worksheets("Ottobre_2008").Cells(55, 7 + data_confronto1).Value = rs1("SommaDiFermo")
            
            rs1.MoveNext
        Loop
    End If
    rs1.Close
    Set rs1 = Nothing
   tip_an3 = "Start-Up"
    query2 = "SELECT Descrizione_Anomalie.Data, Sum(Descrizione_Anomalie.Fermo) AS SommaDiFermo " & _
            "FROM Descrizione_Anomalie " & _
            "WHERE (((Descrizione_Anomalie.Data) >= #10/1/2008# And " & _
                    "(Descrizione_Anomalie.Data) <= #10/31/2008#) And " & _
                   "((Descrizione_Anomalie.Tipo_Anomalia) = '" & tip_an3 & "')and (Linea='" & linea & "')) " & _
            "GROUP BY Descrizione_Anomalie.Data"
    Set rs2 = DB.OpenRecordset(query2)
 
    ' Reset dlla zona di destinazione
    Worksheets("Ottobre_2008").Range("H56:AL56").Value = 0
 
    If rs2.RecordCount > 0 Then
        rs2.MoveFirst
       Do Until rs2.EOF
            data_confronto2 = Day(rs2("Data").Value)
            Worksheets("Ottobre_2008").Cells(56, 7 + data_confronto2).Value = rs2("SommaDiFermo")
            
            rs2.MoveNext
        Loop
    End If
    rs2.Close
    Set rs2 = Nothing
      
    db.Close
    Set db = Nothing