выдает ошибку "объект источника уже инициализирован"

[evdss]

Добрый день!
Может кто-нибудь подскажет в чем причина, в Set xCon1 = CurrentProject.Connection выдает ошибку "объект источника уже инициализирован"

Sub Импорт_с_сервера_s_okpo()
Dim BazaSQL As String, FdSQL As String, FD As String
Dim xCon1 As ADODB.Connection
Dim RsVx As ADODB.Recordset
Dim RsVix As ADODB.Recordset
Dim fld As ADODB.Field
Dim strSQL As String
Dim xCon As ADODB.Connection
BazaSQL = "tr_1_reg"
FdSQL = "s_okpo"
FD = "s_okpo"


Set xCon1 = New ADODB.Connection
Set xCon1 = CurrentProject.Connection
strSQL = "delete * from " & FD & ";"
xCon1.Execute strSQL

Set RsVix = New ADODB.Recordset
RsVix.Open "" & FD & "", xCon1, adOpenDynamic, adLockOptimistic

Set xCon = New ADODB.Connection
xCon.Open BazaSQL, "sa", ""


Set RsVx = New ADODB.Recordset
RsVx.Open FdSQL, xCon, adOpenForwardOnly

Do While Not RsVx.EOF
   RsVix.AddNew
     For Each fld In RsVx.Fields
       If fld.Name = "okpo" Or fld.Name = "name" Or fld.Name = "okato" Or fld.Name = "okved" Then
          If IsNull(RsVx.Fields(fld.Name)) Or Trim(RsVx.Fields(fld.Name)) = "" Then
             RsVix.Fields(fld.Name) = Null
          Else
             RsVix.Fields(fld.Name) = Trim(RsVx.Fields(fld.Name))
          End If
       End If
     Next fld
   RsVix.Update
   RsVx.MoveNext
Loop
RsVx.Close
RsVix.Close
Set xCon = Nothing
Set xCon1 = Nothing
End Sub

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Aleksandr H.]

зачем 2 раза делать Set xCon1? или первую или вторую строку удалите

[evdss]

Set xCon1 = CurrentProject.Connection, если убираю строку, то xCon1.Execute strSQL
выдается ошибка "операция не допускается, если объект закрыт"