i am trying to create a files
but i am little bit confuse that how to put values in an array with semicolon?
and if any field is empty then write 0 value for that field.
so far my little approach is just as follow.
Dim csvflname As String
If Rs.State = 1 Then Rs.Close
Rs.Open "Select * from BD where bdate between CDATE('" & DTPicker1.Value & "') and CDATE('" & DTPicker2.Value & "')", con, adOpenKeyset, adLockOptimistic
If Rs.RecordCount > 0 Then
For I = 0 To Rs.RecordCount
'''here i wanted to create an array and put rs
'''value in it with semicolon and if any fields
'''is empty then put default value 0
csvflname = Rs.Fields(0) & ".csv"