Public Sub fnReplaceLink(tablName1 As String, tablName2 As String)
On Error Resume Next
DoCmd.DeleteObject acTable, tablName2
DoCmd.TransferDatabase acImport,  "dBase III" ,  "C:\" , acTable, tablName1, tablName2
End Sub

' Возвращает ссылку на объект Application.
	Set appAccess = New Access.Application
	' Открывает базу данных в окне Microsoft Access.
	appAccess.OpenCurrentDatabase strDB
	' Выводит отчет на печать.
	appAccess.DoCmd.OpenReport strReportName
	MsgBox  "По окончании печати "  & strReportName & _
		 " нажмите OK" 
	appAccess.CloseCurrentDatabase
	Set appAccess = Nothing