Problemer med Import

Private Sub Kommandoknap116_Click()
Dim a As String
Me.Kommandoknap116.HyperlinkAddress = LaunchCD(Me)
Me.Tekst24 = Me.Kommandoknap116.HyperlinkAddress
a = Me.Tekst24
DoCmd.TransferSpreadsheet acImport, 0, "tblemner", a, True, ""
MsgBox "Tjek emner"

End Sub


Den debugger:
DoCmd.TransferSpreadsheet acImport, 0, "tblemner", a, True, ""


Den siger at - Der opstod et nummerisk felt overløb - hvad vil det sige?? - Jeg har tekst feletr i alle mine felter - så det her forsår jeg ikke -