Visual Basic - No actualiza los datos 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

Me parece que el recordset tiene datos y los actualiza, pero no en la base de datos, porque no tiene ninguna conección con ella, ya que en tu funcion GetRS, activas la conexión ejecutas el SQL y cierras la conexion, dejando el recordset cargado de datos pero sin conexión a la BD.