Visual Basic - URGENTISIMO Necesito mostrar datos ODBC al AS/400

Tengo el siguiente codigo de coneccion ODBC, entre mi programa y AS/400 pero no se como mostrar datos en el MSFlexGrip, ComboBox,... Para modificar, Agregar y Eliminar los datos de las tablas.
Dim RS As Recordset
Dim adodb1 As Connection
Dim wrkodbc As Workspace

Set wrkodbc = CreateWorkspace("UNHC02", "", "", dbUseODBC)

Set adodb1 = wrkodbc.OpenConnection("UNHC02", , , "ODBC;DATABASE=;UID=;PWD=;DSN=UNHC02")

Set RS = adodb1.OpenRecordset( _
"Select * from UNHC02.HC3045", _
dbOpenDynamic)


Necesito Ayuda pronto es mi trabajo de Pasantia y me queda poco tiempo GRACIAS