Experto: Cambiar propiedad de campo

Estimado:

En este foro encontré un código para seleccionar un archivo excel desde el explorador de windows e importarlo a access.

El código para realizar el proceso es el siguiente:

On Error GoTo Err_CmdAbreFichero_Click
Dim RutaFichero As String
'Cargo el fichero a copiar(Mejor dicho a GUARDAR COMO)
RutaFichero = EscogeFichero_Con_WizHook
If Len(RutaFichero) <> 0 Then
'cargo los datos del fichero en la campo de texto
Me.Archivo = Trim(RutaFichero)
DoCmd.TransferSpreadsheet acImport, , "Libro Diario", Me.Archivo, True
MsgBox "Archivo Importado con éxito", vbInformation, "Importar"
Dim stDocName As String
stDocName = "MacroDatosImportados"
DoCmd.RunMacro stDocName
End If
Exit_CmdAbreFichero_Click:
Exit Sub
Err_CmdAbreFichero_Click:
MsgBox Err.Description
Resume Exit_CmdAbreFichero_Click
End Sub

El problema me surge ya que uno de los campos que debo importar trae por defecto en tipo de datos "doble", lo que me genera errores en la importación, ya que debiera ser "texto corto".

Yo tengo guardados los pasos de importación para estos archivos en los cuales modifique la proppiedad de ese campo y luego importó perfectamente, sin errores.

Quisiera que me indiquen como llamar la importación a partir del código de mas arriba o cómo se puede definir el tipo de datos en texto.

Saludos Cordiales

Irongigio