Dim filepath As String
Dim sqlinsert As String
Dim sqlvalue As String
Dim sqlquery As String
Dim sqlwhere As String
'Set db = CurrentDb
directory = "C:\Users\gmartin\Desktop\Equip\The Soup Kitchen\Database\"
FileName = "onlinedonations.csv" 'Assuming test.csv is in C:\ directory
Set rs = CreateObject("ADODB.Recordset")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & directory & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
strSQL = "SELECT * FROM " & FileName
rs.Open strSQL, strcon, 3, 3
rs.MoveFirst
Do
col1 = rs("Donation")
col2 = rs("Donation Date")
col3 = rs("Collected Amount")
col4 = rs("Transaction ID")
col5 = rs("Collected Amount")
sqlinsert = "INSERT INTO [Donations2](ID No,Date of Donation,Amount,Check #,Deductable Amount,Account,In Memory of,From Newsletter?,From Spring Newsletter,From Summer Newsletter?,From Fall Newsletter?,From Winter Newsletter?,Receipt - Cash,Item Donated,Receipt - Item,Donation Type,Reissue Receipt Letter,Retrieve,Record Date)"
sqlvalue = " Values (" & col1 & "," & col2 & "," & col3 & "," & col4 & "," & col5 & ",0000,,No,No,No,No,No,Y,,,online,No,No," & Now() & ")"
' sqlwhere = col4
sqlquery = sqlinsert & sqlvalue
MsgBox sqlquery
DoCmd.RunSQL sqlquery
rs.MoveNext
Loop Until rs.EOF