Visual Basic - No actualiza el recordset

Uso lo siguiente para conseguir un recordset y actualizar sus datos.
Dim miAdo as new ClsADO
Dim rs as new ADODB.Recorset

Set miADO = new ClsADO
Set rs =new ADODB.Recordset

set rs=miADO.GetRs (miSql)
...
'modifico los datos y .update
....
rs.update
...continua el programa
....
¿¿¿'LOS DATOS NO SE ACTUALIZAN EN LA BASE DE DATOS PORQUE ??? :-((

¿Alguien puede tener un idea de por que no se actualiza la B.D.???
Seguro que es una chorrada pero NO LO VEO.
Por favor una ayuda...
Por favor, echarle un vistazo al código de la clase y a ver que os parece, se admiten todo tipo de sugerencias y críticas...
Saludos...

!!!!!! Extracto de la clase...
Clase ClsADO
Metodos de mi clase para trabajar con ADO...
....
Public Function GetRS(SQL As String) As ADODB.Recordset
'Devuelve un recordset

Dim rs As New ADODB.Recordset
On Error GoTo LocalError
With rs
.ActiveConnection = ConnectionString
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenDynamic
.Source = SQL
.Open
Set .ActiveConnection = Nothing
End With
Set GetRS = rs
Set rs = Nothing
Exit Function
LocalError:
m_sLastError = Err.Number & " - " & Err.Description
Set rs = Nothing
End Function

bueno, la verdad no te puedo dar con seguridad una respuesta del porque no te actualiza, pero si te puedo plantear algunos interrogantes para procurar orientarte al respecto.

1 es necesario hacer el Set miADO = new ClsADO , cuando ya lo has declarado mas arriba utilizando el New?

2. porque no mejor colocas la variable rs como una propiedad publica de la clase.?

pues por el momento no se me ocurre nada más, pero creo que el problema estará por esos lados!
espero que te sirva de algo. saludos!