Error en el método 'DataSource' del objeto 'ITrueDBGridCtrl'

[Expinete]

Estoy haciendo una Aplicación en VB6 que conecta con SQL mediante ADO.

Cuando conecto el TrueDBGrid con el Recordset me da el siguiente error.

Error en el método 'DataSource' del objeto 'ITrueDBGridCtrl'
Err.number=-2147417848

el codigo es el siguiente:

Dim db As Database

Set db = New ADODB.Connection
db.Provider = "SQLOLEDB"
db.ConnectionString = " Provider=SQLOLEDB.1;" & _
"TRUSTED_CONNECTION=YES;" & _
"Initial Catalog=" & RUTABD & ";" & _
"Data Source=" & NombreServidor & ""

db.CommandTimeout = 0
db.Open

dim RsDatos as ADODB.Recordset
Set RsDatos = New ADODB.Recordset
RsDatos.CursorLocation = adUseClient
RsDatos.LockType = adLockOptimistic

RsDatos.Open "Select * from TipoCliente where empresa=" & CODIGOEMPRESA & " order by Codigo", db
Set tdbg1.DataSource = RsDatos

Pero no siempre me da el error.
Cuando le doy a aceptar y vuelvo a ejecutar la consulta me da el siguiente error:

La instrucción en "0x132dc57a" hace referencia a la memoria en "0x134eaf70". La memoria no se puede "read"

Haga clic en Aceptar para finalizar este programa

y se me sale del programa.

Cuando acceso al Visor de sucesos me da el siguiente error
Aplicación con errores: VB6.EXE, versión: 6.0.89.88, módulo con error: todg7.ocx, versión 7.0.0.254, dirección de error 0x00069a34
He probado a instalar una versíon mas nueva de TrueDBGrid7 (7.0.0.303)
y me pasa lo mismo

Agradecería alguna ayuda.
Gracias