Cosa sbaglio in questo codice?


Private Sub cmdEstrai_Click()
Dim RsOrig As ADODB.Recordset
Dim RsDest As ADODB.Recordset
Dim rscodASL As ADODB.Recordset
Dim SqlASL As String
Dim Sql As String
Dim apice As String
Dim sSQL As String
apice = Chr(34)
Set rscodASL = New ADODB.Recordset
SqlASL = "select * from ASL where NomeASL=" & apice & lstASL.Text & apice
With rscodASL
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Source = SqlASL
.ActiveConnection = connOrig
.Open
End With

CodASL = rscodASL("CodASL")
rscodASL.Close
Set rscodASL = Nothing

Sql = "select * from Struttura_Ente where CodASL=" & apice & CodASL & apice
'sSQL = "Select * INTO [Struttura_Ente] In" & connDest & "from " & connOrig
'connOrig.Execute (sSQL)
'MsgBox ("fatto")
'End
Set RsOrig = New ADODB.Recordset
With RsOrig
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Source = Sql
.ActiveConnection = connOrig
.Open
End With
Set RsDest = New ADODB.Recordset
With RsDest
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Source = "Struttura_Ente"
.ActiveConnection = connDest
.Open
End With
RsOrig.MoveFirst
Do Until RsOrig.EOF
RsDest("Struttura_Ente_ID") = RsOrig("Struttura_Ente_ID")
End
If IsNull(RsOrig("CodiceStruttura")) = False Then
RsDest("CodiceStruttura") = RsOrig("CodiceStruttura")
Else
RsDest("CodiceStruttura") = ""
End If
RsDest("Ente_ID") = RsOrig("Ente_ID")
RsDest("Code_Struttura") = RsOrig("Code_Struttura")
RsDest("CodeTipoOsp") = RsOrig("CodeTipoOsp")
RsDest("Descrizione_Struttura") = RsOrig("Descrizione_Struttura")
RsDest("CodASL") = RsOrig("CodASL")
RsDest("Indirizzo") = RsOrig("Indirizzo")
RsDest("Provincia") = RsOrig("Provincia")
RsDest("Localita") = RsOrig("Localita")
RsDest("Codice_Postale") = RsOrig("Codice_Postale")
RsDest("Numero_Telefono") = RsOrig("Numero_Telefono")
RsDest("Numero_Fax") = RsOrig("Numero_Fax")
RsDest("ParzAutorizzata") = RsOrig("ParzAutorizzata")
RsDest("ParzTransAccreditata") = RsOrig("ParzTransAccreditata")
RsDest("Privata") = RsOrig("Privata")
RsDest("NormeVigenti") = RsOrig("NormeVigenti")
RsDest("DataStampaIst") = RsOrig("DataStampaIst")
RsDest("SupVerde") = RsOrig("SupVerde")
RsDest("SupPark") = RsOrig("SupPark")
RsDest.Update
RsDest.MoveNext
RsOrig.MoveNext
Loop
End Sub