Public Function readdata() As String
Dim recordimport As Receipts
Open "C:\file1.txt" For Random As #1 Len = 17
Do While Not EOF(1)
Get #1, , recordimport
SQL = "INSERT INTO Table1 (Pay Date, Pay Amount) VALUES ([recordimport.paydate], [recordimport.payamount])"
Loop
Close #1
End Function
|