代码报错，问题出哪了？

sxgaobo

    Set r = CurrentDb.OpenRecordset("表名表")
    While Not r.EOF
      strConn = "ODBC;DRIVER=SQL Server;SERVER=192.168.1.1;UID=sa; PWD=123456;DATABASE=2"
      DoCmd.TransferDatabase acLink, "ODBC", strConn, acTable, r.名称, r.名称
      r.MoveNext
    Wend
   
这个运行正常

    Set r = CurrentDb.OpenRecordset("表名表")
    While Not r.EOF
     strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r.IP & ";DATABASE=" & r.数据库 & ";UID=" & r.用户 & "WD=" & r.密码
      DoCmd.TransferDatabase acLink, "ODBC", strConn, acTable, r.名称, r.名称
      r.MoveNext
    Wend

这个报错，帮忙看看问题在哪了？！

sxgaobo

{:soso_e183:}谢谢各位了！搞定了。