Private Sub Command0_Click()

    Dim Backstr As String
    Backstr = "D:\文件夹1\db1.mdb"
    DoCmd.TransferDatabase acLink, "Microsoft Access", Backstr, acTable, "表1", "表1"
   
End Sub