Sub Importa_ConsignmentStockDocuments()

    Dim conString As String
    Dim ws As Worksheet

    Set ws = ThisWorkbook.ActiveSheet

    conString = OdbcConnectionString(G_SERVER_NAME, G_DATABASE_NAME, "", "")

    Dim query As String, p1 As String, p2 As String

    query = "SELECT * FROM vw_Check_ConsignmentStock"

    Dim destinationRange As Range
    Set destinationRange = ws.Range("A4")

    'pulisce l'area prima dell'importazione

    ws.Range("A4", "Y1000000").Clear

    ImportSQLtoRange conString, query, destinationRange

End Sub