代码报错，问题出哪了？

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

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

tmtony

你可打印 strConn  出来看看与 上面那个有什么不同之点
用debug.print strconn

盗梦

下个断点，逐个调试

roych

如果我没猜错的话，r应该是一个记录集，那么这句可能有问题：

strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r.IP & ";DATABASE=" & r.数据库 & ";UID=" & r.用户 & "WD=" & r.密码 ";PWD=" & r.密码

可以改为下面的语句再试试：
strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r("IP") & ";DATABASE=" & r.数据库 & ";UID=" & r("用户") & "WD=" & r("密码")&";PWD="&r("密码")

sxgaobo

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