Visual Basic para Aplicaciones - tengo un error y no se cual

Private Sub Cmd_Enar_Click()
Dim res As String
Dim Primeraconexion As ADODB.Connection

Call guardarregistro

'************************ **********************

If abrirbasedatos(Primeraconexion) Then
use pubs
DELETE From HOLA1 where id='TxtId.Text'
AdodcEli.ConnectionString = Sql_Conexion
AdodcEli.RecordSource = Sql
AdodcEli.Refresh
Set reg = Primeraconexion.Execute(Sql)

' TxtId.Text = reg.Fields("Id")
' TxtCli.Text = reg.Fields("NOMBRE")
' TxtDira.Text = reg.Fields("DIRECCION")
'TxtId.Text = AdodcEli.Recordset.Fields("Id")
'TxtCli.Text = AdodcEli.Recordset.Fields("NOMBRE")
'TxtDira.Text = AdodcEli.Recordset.Fields("DIRECCION")


End If
End Sub
tengo un error y no se cual