Visual Basic - sql odbc problema gran

dbQSQLPassThrough quien sabe como ocupar esta instruccion para poder agtregar registros estoy trabajando con un as/400 y quiero agregar registros a otra libreria y pra hacer la consulta tengo que har este seteo Set cursor = dbsremote.OpenRecordset(CONSULTA, dbOpenSnapshot, dbQSQLPassThrough)
pero para agregar nesecito este Set cursor = dbsremote.OpenRecordset(CONSULTA, dbOpenDynaset, dbQSQLPassThrough) y me dise que no funciona con el dinaset no se que hacer agradesco alguna sugerencia grasias