怎么在access中使用代码直接链接ODBC中指定表格？

上面的都是指本地的，我在网上有找到一个SQL，自己改了下变成ORACL。可以链接，但碰到新的问题，数据库有张表有个字段格式定义比较奇怪，导致我链接失败，不知怎么办

Public Sub 创建_Click()
    Dim cnn As String
    Dim dbs As Object    'Database
    Dim tdf As Object    'DAO.TableDef
    Dim str_DSN As String, str_DBQ As String, str_UID As String, str_PWD As String, str_odbc As String
    Set dbs = CurrentDb
    '下面是ODBC连接SQL字符串
   ' strConnect = "ODBC;DRIVER=SQL Server" & _
                  ";SERVER=10.209.146.2" & _
                 ";DATABASE=wsidg" & _
                 ";UID=wdry" & _
                 ";PWD=wdry@2013"
                 
       str_DSN = "newland"
    str_DBQ = "pnmcdb"
    str_UID = "wangyou"
    str_PWD = "wangyou@2011"
                 
     strConnect = "ODBC;DSN=" & str_DSN & ";UID=" & str_UID & ";PWD=" & str_PWD & ";DBQ=" & str_DBQ & ";"




    Set tdf = dbs.CreateTableDef("PM_PRE_REGION_TD_DAY")  '创建链接表,命名为tblcode_kh_b
    tdf.Connect = strConnect
    tdf.SourceTableName = "PM_PRE_REGION_TD_DAY"    'SQL源表
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功，请查看表"
End Sub