For i =  1  To  2 
    c = Choose(i,  2 ,  9 )
    sDate = Choose(i, " WHERE data='" & dd & mm & gg & "'", "")
    Set db = OpenDatabase(App.Path & "\Output", False, False, "dBASE III")
    Set rs = db.OpenRecordset("SELECT mkod3, Sum(CInt(V_minuts)) as Res" & _
                          " FROM Prost_TS0607" & _
                          sDate & _
                          " GROUP BY mkod3")
     Do While Not rs.EOF
        n = CInt(Right(rs.Fields("mkod3"),  2 ))
        Select Case Left(rs.Fields("mkod3"),  1 )
            Case "a": xlSheet.Cells(iRow(n), c +  1 ) = Format(rs!res, "h:m:s")
            Case "b": xlSheet.Cells(iRow(n), c +  2 ) = Format(rs!res, "h:m:s")
            Case "c": xlSheet.Cells(iRow(n), c +  3 ) = Format(rs!res, "h:m:s")
            Case "d": xlSheet.Cells(iRow(n), c +  4 ) = Format(rs!res, "h:m:s")
            Case "e": xlSheet.Cells(iRow(n), c +  5 ) = Format(rs!res, "h:m:s")
            Case "j": xlSheet.Cells(iRow(n), c +  6 ) = Format(rs!res, "h:m:s")
        End Select
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
Next i

Set rs = db.OpenRecordset("SELECT mkod3, Sum(CInt(V_minuts)) as Res" & _
                          " FROM Prost_TS" & mm & gg & _
                          sDate & _
                          " GROUP BY mkod3")