如何创建表连接是sa认证？

通过下面代码创建的表连接是windows认证.windows认证的坏处是每次都要手动输入sa和密码.如何创建表连接是sa认证？

Dim cnn As String
    Dim dbs As Object    'Database
    Dim tdf As Object    'DAO.TableDef
    Set dbs = CurrentDb
      strConnect = "ODBC;DRIVER=SQL Server" & _
                 ";SERVER=" & IP & _
                 ";DATABASE=" & Database & _
                 ";UID=sa" & _
                 ";PWD=" & PWD

    Set tdf = dbs.CreateTableDef(Table)  

    tdf.Connect = strConnect
    tdf.SourceTableName = Table   

    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow