Visual Basic - Como mostrar un DataReport en VB6 cuando tengo una conexion ODBC...

Public Sub Main()

Dim Cedula As String

Dim Data As Recordset

Set SistClientes = New Connection

SistClientes.ConnectionString = "DSN=SistClientes;UID=;PWD=;DATABASE=BDClientes;"

SistClientes.CursorLocation = adUseClient

Set Conexion = New ADODB.Connection

Conexion.Open SistClientes

FrmClientes.Show

End Sub

'---------------En el modulo  ---------------------------

'Cuando inicia la aplicacion abro la conexion y la dejo activo  

Sub Main()

'On Error GoTo etqerror

    conexion.Open ("dsn=dsnprof;user id = sa;pwd= clave ;")

 MsgBox "Conexion Exitosa", vbInformation, "Conexion"

    frmLogin.Show ' Muestro mi menu principal para luego ir al menu que me hace la impresion.

Exit Sub

etqerror:

    MsgBox "Error de Conexion " & Err, vbCritical, "Conexion"

    End Sub

'-----------------En el form de consulta --------------

Private Sub cmdcon_Click()

    Dim MITEXTO, clte, cia As String

    sql = "Select * "

    sql = sql & " from tablaA a, tablab b, tablac c  "

    sql = sql & " where a.idcia = c.idcia and b.idclt = c.idclt and Idprof = " & Num

    'MsgBox SQL  ' para ver el sql armado 

    Rs.Open sql, conexion

'SACO LA CANTIDAD EN LETRAS

MITEXTO = LetrDOLARES(Rs(21)) ' cantidad en letras con funcion

drptIndl.Sections("Seccion1").Controls.Item("etqcl").Caption = MITEXTO

drptIndl.Sections("Seccion1").Controls.Item("etqclte").Caption = clte

drptIndl.Sections("Seccion1").Controls.Item("etqcia").Caption = cia

drptIndl.Sections("Seccion1").Controls.Item("etqidprof").Caption = Num

Set drptIndl.Sections("Seccion1").Controls.Item("logo1").Picture = LoadPicture(Rs(6))

Set drptIndl.DataSource = Rs

drptIndl.Show

End If

' libero las variables.

Set Rs = Nothing

End Sub