good = Registered_Name
With Export_Access_dialog
SelectedSheet = .Sheet_listing.Value
'Have_fields = .Have_labels
End With
Dim strDAOVersion As String
Select Case Left(Application.Version, 1)
Case "7"
strDAOVersion = ""
Case "8"
strDAOVersion = ".35"
Case Else
Case "9"
strDAOVersion = ".36"
End Select
Dim dbEng As Object, dbsNew As Object
Set dbEng = CreateObject("DAO.DBEngine" & strDAOVersion)
Lang_code = ";LANGID=0x0409;CP=1252;COUNTRY=0"

Это используется при переносе данных из excel в access
Не могу понять к чему эти строки И ОНИ ОБЯЗАТЕЛНЫ.

ЭТО VBA )

Dim dbsNew As Database, tdfNew As Recordset ему не нравится тип он выдает ошибку????