¿Tienes todo el codigo en el mismo evento?
Te recomiendo que la conexion con la BD la hagas cuando el formulacio principal se cargue.
No se como esta distribuido ese codigo en tu proyecto, pero toma en cuenta que probablemente la segunda vez que lo ejecutes esto:
Cita: RsDatos.Open "Select * from TipoCliente where empresa=" & CODIGOEMPRESA & " order by Codigo", db
Set tdbg1.DataSource = RsDatos
Se ejecutara de nuevo.
Saludos