Visual Basic - Actualizacion de 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...
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

Supongo que si estas utilizando ado, habras configurado el ODBC, si lo has hecho dimelo y te envio un codigo.

No uso ODBC sino una conexion con OLEDB.
Es decir le indico a ADO en su propiedad .connection ,el tipo de proveedor (JET 4.0) y la ruta a la base de datos, con las opciones de seguridad (si las hay), tal que:
A
ADO.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilespec & ";"

Pero lo que me interesa es saber por que el el código de la clase que he posteado, produce este "efecto", de no actualizar los datos y NO DA NINGUN ERROR o aviso el .update o cualquier otra cosa (.requery ) que intente con el recordset, pero el caso es que los datos no están en la base de datos.
Por favor echarle un vistazo al código y decirme si hay algo "raro",o alguna sugerencia.

Greacias...