Hi

I have the below code which I pass a RS to add new columns and values to
a CSV file but it appears to update the same value for all rows..

can anyone see what I'm doing wrong..I need to treat them individually and
add different values..

Thanks

Pls Help!!
Code:
'Append Column names to CSV file
Private Sub AddColumnCSV(rs As Recordset)
    
    Dim row As Long, col As Long
    Dim fd As ADODB.Field
    Dim i_file As Integer
    Dim strLine As String
    Dim Counter As Long
    Dim strSQL As String
    Dim strFilename As String
    Dim strIn, strOut As String
    'Dim db As Database
    
    strFilename = "N:\DailyFiles\QuoteAndBuy\Zurich_Retailer_Extract\dailyextractZurich_Survey.csv"
   
    Set rs = New Recordset
    strSQL = ""
    strSQL = " SELECT tab_BASS_BDA_MAIN_SQL.Name_char, tab_BASS_BDA_MAIN_SQL.Address_1_char, tab_BASS_BDA_MAIN_SQL.Address_2_char, tab_BASS_BDA_MAIN_SQL.County_char, tab_BASS_BDA_MAIN_SQL.Post_code_char, tab_BASS_BDA_MAIN_SQL.TEL_GENERAL_char, tabTempSurvey.Survey, First(tab_QMS_ContactList.Contact_char) AS FirstOfContact_char, tabTempSurvey.Ac"
    strSQL = strSQL & " FROM (tab_BASS_BDA_MAIN_SQL INNER JOIN tabTempSurvey ON tab_BASS_BDA_MAIN_SQL.A_C_NO = tabTempSurvey.Ac) INNER JOIN tab_QMS_ContactList ON tab_BASS_BDA_MAIN_SQL.A_C_NO = tab_QMS_ContactList.Ac_No"
    strSQL = strSQL & " GROUP BY tab_BASS_BDA_MAIN_SQL.Name_char, tab_BASS_BDA_MAIN_SQL.Address_1_char, tab_BASS_BDA_MAIN_SQL.Address_2_char, tab_BASS_BDA_MAIN_SQL.County_char, tab_BASS_BDA_MAIN_SQL.Post_code_char, tab_BASS_BDA_MAIN_SQL.TEL_GENERAL_char, tabTempSurvey.Survey, tabTempSurvey.Ac"
    strSQL = strSQL & " HAVING (((tabTempSurvey.Survey)= 'yes'))"
    rs.Open strSQL, gLocal, adOpenStatic, adLockOptimistic
    
    'Check if rs is not empty
    If rs.BOF Then Exit Sub
    rs.MoveFirst
    'open the file
    i_file = FreeFile()
    
    Open strFilename For Input As #i_file
    
    'Set db = CurrentDb
     Counter = 0

    Do While Not EOF(i_file)
        Line Input #i_file, strIn
        Counter = Counter + 1
       
           If Counter = 1 Then
               strOut = strOut & strIn & "," & Chr(34) & "Survey" & Chr(34) & "," & Chr(34) & "Broker Name" & Chr(34) & "," & Chr(34) & "Address_1" & Chr(34) & "," & Chr(34) & "Address_2" & Chr(34) & "," & Chr(34) & "County" & Chr(34) & "," & Chr(34) & "Post_Code" & Chr(34) & "," & Chr(34) & "Telephone_General" & Chr(34) & "," & Chr(34) & "Survey Contact" & Chr(34) & "," & Chr(34) & vbCrLf
           Else
               'Do similar for data
               strOut = strOut & strIn & "," & Chr(34) & rs.Fields("Survey").Value & Chr(34) & "," & Chr(34) & rs.Fields("name_char").Value & Chr(34) & "," & Chr(34) & rs.Fields("Address_1_char").Value & Chr(34) & "," & Chr(34) & rs.Fields("Address_2_char").Value & Chr(34) & "," & Chr(34) & rs.Fields("County_char").Value & Chr(34) & "," & Chr(34) & rs.Fields("Post_code_char").Value & Chr(34) & "," & Chr(34) & rs.Fields("TEL_GENERAL_char").Value & Chr(34) & vbCrLf
           End If
       Loop

    Close #i_file
    CreateMSCSV strOut, "N:\DailyFiles\QuoteAndBuy\Zurich_Retailer_Extract\Zurich_Survey Report_RL01.csv"
    
End Sub