Can someone tell me what is wrong with my code?

Option Compare Database
Option Explicit

Dim aConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSql As String

Function TransferData()
aConn.Open "Driver={Microsoft Paradox Driver (*.db )};" & _
           "DriverID=538;" & _
           "Fil=Paradox 8.0;" & _
           "DefaultDir=P:\Fleet\;" & _
           "Dbq=P:\Fleet\;" & _
           "CollatingSequence=ASCII"

Set rs = New ADODB.Recordset
sSql = "SELECT * FROM Fleet.db"
    rs.Open sSql, aConn

Do While Not (rs.EOF Or rs.BOF)
sSql = "INSERT INTO AccessTable (Date,Time) Values (rs(1), rs(2))"
CurrentDb.Execute (sSql)
rs.MoveNext
Loop

End Function