自定义链接后端数据库

代码非常简单。我在这里的例子是从文本框中输入一个新的数据库路径，然后更新链接。请参考一下，改一下。
Private Sub command 0 _ Click()
On Err GoTo Err _ command 0 _ Click
Dim cat As ADOX。目录
将tdf标注为ADOX。table
me . txtdbnewname . setfocus
Set cat =新ADOX。目录
集合目录。active connection = current project。连接
设置tdf = cat。Tables("mytable")
tdf。properties(" jet oledb:link data source ")= me . txtdbnewname . text

Exit _ command 0 _ Click:
退出Sub

Err _ command 0 _ Click:
MsgBox Err。描述
Resume Exit _ command 0 _ Click
End Sub