Visual Basic - Para Expertos

Sres/as tengo el siguiente problema, tengo unos comandos que se ejecutan perfectamente, pero llegado a cierto numero de ejecuciones me aparece el msg Error no especificado, alguien me puede dar una idea de que esta sucediendo, el cod es el sigi.:
Dim ordensql As String
Dim sql As String
Dim comando As New ADODB.Command
Dim comando1 As New ADODB.Command
Dim db As ADODB.Connection

Set db = New ADODB.Connection
db.CursorLocation = adUseClient


db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BASE.MDB;"



sql = "INSERT INTO ingresos (dni, fecha,seleccion) " _
& " VALUES(' " & Text1.Text & " ',' " & CDate(Now) & " '," & Me.eleccion & " )"

ordensql = "UPDATE planes INNER JOIN tablaS ON id = tablaT.campo1 " _
& " SET tablaS.clases = tablaS.clases -1, tablaS.ingreso = Now() " _
& " WHERE (((tablaS.dni) =" & Me.Text1.Text & " )" _
& " AND ((planes.id_plan)= " & Me.Pseleccionado & "))"

With comando
.ActiveConnection = db
.CommandText = ordensql
.CommandType = adCmdText
End With


If data1.RecordCount <> 0 Then ' <---- valido que el socio elejido se encuentre



comando1.Execute
comando.Execute

' Si alguien me puede ayudar a resolver este problema estaria muy agradecido