Private Sub saveData(rs As ADODB.Recordset)

    
    strConnection = "Provider=SQLNCLI;Server=localhost;Database=EXPORT_DATA;Uid=SIMONE;Pwd=egea2008;"

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

    
    dbConnection.Open (strConnection)
    
    
    
    recSetS.Open "S_TABLE", dbConnection, 3, 3
    
    If (recSetS.Supports(adAddNew) = True) Then
    
    
     Do While Not rs.EOF

            With recSetS
               .AddNew
                   .Fields("CODCLI") = rs(0)
       .....