Importar archivo txt a tabla en access

Necesito su ayuda para importar un archivo txt a una tabla de access ya separando los datos y se agreguen automáticamente a cada campo de la tabla, este es el contenido que tendrá el archivo txt
0101000000@1000171A061507000
Y este es mi código hasta el momento
Private Sub importar_Click()
Dim strlinea As String
Dim strcamp1 As String
Dim strcamp2 As Integer
Dim strcamp3 As String
Dim strcamp4 As Date
Dim strcamp5 As Date
Dim strcamp6 As String
Open "N:\RH\BD RecHum\Daniel.txt" For Input As #1
While Not EOF(1)
Line Input #1, strlinea
strcamp1 = Mid(strlinea, 1, 15)
strcamp2 = Mid(strlinea, 16, 3)
strcamp3 = Mid(strlinea, 19, 1)
strcamp4 = Mid(strlinea, 20, 4)
strcamp5 = Mid(strlinea, 24, 4)
strcamp6 = Mid(strlinea, 28, 1)
CurrentDb.Execute ("INSERT INTO [Registro](CodigoBinario,NoNomina,Dato,FechaChequeo,HoraChequeo,Modalidad) VALUES ('" & strcamp1 & "','" & strcamp2 & "','" & strcamp3 & "','" & strcamp4 & "','" & strcamp5 & "','" & strcamp6 & "')")
Wend
Close #1
End Sub