'variabili globali per la form 
.... 
Global strConnection As String 
Global dbConnection As New ADODB.Connection 
Global rsSolleciti As New ADODB.Recordset 
.... 
... 
'funzione che carica i dati da un db sql server 2005 su una tabella VSFlexGrid e li mostra a video 
..... 
......... 

strConnection= "Provider=SQLNCLI;Server=localhost;Database=EXPORT_DATA;Uid=userr;Pwd=psw;" 

    dbConnection.ConnectionTimeout = 5 
    dbConnection.CursorLocation = adUseClient 
    dbConnection.Mode = adModeShareDenyNone 
     
    dbConnection.Open strConnection 

    rsSolleciti.Open "Select CODCLI,DESTINATARIO,RESIDUO_TOT,num_fatture,doc from estrazione order by RESIDUO_TOT asc", dbConnection, adOpenStatic, adLockOptimistic, adCmdUnknown 
         
        Set VSFlexGridSolleciti.DataSource = rsSolleciti 
         
        VSFlexGridSolleciti.Visible = True 
         
        VSFlexGridSolleciti.Editable = True 

        VSFlexGridSolleciti.AllowSelection = False 
         
        VSFlexGridSolleciti.AllowBigSelection = False 
.... 
.......