动画演示图：

源码：

Private Sub Command85_Click()
    DoCmd.TransferDatabase acLink, "ODBC 数据库", "odbc;driver=SQL server;server=DESKTOP-CIBD67T;dsn=wwwww;database=AA;uid=sa;pwd=123;LANGUAGE=us_english;" _
                                             & "database=AA", acTable, "商品分类表", "商品分类表"
End Sub

Private Sub Command86_Click()
    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\Users\Yang\Desktop\Database6.accdb", acReport, "rpt商品分类", "rpt商品分类"
End Sub

command85各参数截图：

【Access文章】如何使用ODBC链接表/如何链接SQL Server中的表[Access软件网]
http://www.accessoft.com/article-show.asp?id=10335

DSN 名称请参考上面链接，新建，测试完成