老问题，还是带密码的链接数据库刷新的事

lv321

我在论坛上搜了半天，看了几百条旧的帖子，但是没有能解决我的问题的，所以只能再发一个。

是这样， 我的mde 和 数据库的链接， 数据库带密码， 平时都没问题，但是当数据库文件的名字或路径改变是，就需要在程序里写RefreshLinks 去刷新这些链接表。但是好像他不支持带密码的数据库（没有密码时，可以刷新链接）。大家救救我，谢谢了

lv321

哦， 我找到海里先生的解答了，再次感谢！



Public Function RefLinck()
Dim db As Database
     Dim t As TableDef
     Set db = CurrentDb
     Set t = db.TableDefs("±í1")
   
     t.Connect = "WD=123;DATABASE=" & CurrentProject.Path & "\Êý¾Ý¿â.mdb" 'ACCESSÊý¾Ý¿â
     t.RefreshLink

End Function