Не проходит параметрический запрос ни в ADO ни в DAO - VB

Формулировка задачи:

Для ускорения обработки большой базы начал пробовать работу через параметрический запрос в DAO и в ADO, но при открытии Recordset выдает Type mismatch (Error 13) ошибку.

Dim Wdb As Workspace
Dim dbS As Database
Dim qdS As QueryDef
Dim prmSt As Parameter
Dim rs_q As Recordset
Set Wdb = CreateWorkspace('', 'admin', '', dbUseJet)
    
Set dbS = Wdb.OpenDatabase('D:OIL_UMNGOILUM_BE.mdb')
Set qdS = dbS.CreateQueryDef('', _
    'SELECT * ' & _
' From SutOpLst ')
Set rs_q = qdS.OpenRecordset() 
 
тоже самое и при создании параметра
Dim Wdb As Workspace
Dim dbS As Database
Dim qdS As QueryDef
Dim prmSt As Parameter
Dim rs_q As Recordset
Set Wdb = CreateWorkspace('', 'admin', '', dbUseJet)
    
Set dbS = Wdb.OpenDatabase('D:OIL_UMNGOILUM_BE.mdb')
Set qdS = dbS.CreateQueryDef('', _
 'PARAMETERS prmstate TEXT ; ' & _
    'SELECT * ' & _
' From SutOpLst ')
 
qdS.Parameters.Refresh
If qdS.Parameters.Count Then '
Set prmSt = qdS.Parameters!prmstate
Set rs_q = qdS.OpenRecordset() 
 
End If

Давно сижу не могу врубиться.База создана на ACcess-97

Решение задачи: «Не проходит параметрический запрос ни в ADO ни в DAO»

textual
                            Листинг программы 
                        

                            #import 'C:Program FilesCommon FilesSystemadomsado15.dll' 
rename( 'EOF', 'adoEOF' )
...
_variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
_variant_t vtEmpty2(DISP_E_PARAMNOTFOUND, VT_ERROR);
...
ADODB::_ConnectionPtr Conn1;
ADODB::_CommandPtr Cmd1;
ADODB::_ParameterPtr Param1;
ADODB::_RecordsetPtr Rs1;
 
// Trap any error/exception.
try
{
// Create and Open Connection Object.
Conn1.CreateInstance( __uuidof( ADODB::Connection ) );
Conn1->ConnectionString =
_bstr_t(L'DSN=Biblio;UID=adimin;PWD=;');
Conn1->Open( _bstr_t(L''), _bstr_t(L''), _bstr_t(L''), -1 );
 
// Create Command Object.
Cmd1.CreateInstance( __uuidof( ADODB::Command ) );
Cmd1->ActiveConnection = Conn1;
Cmd1->CommandText = _bstr_t(L'SELECT * FROM Authors '
L'WHERE Au_ID < ?');
 
// Create Parameter Object.
Param1 = Cmd1->CreateParameter( _bstr_t(L''),
ADODB::adInteger,
ADODB::adParamInput,
-1,
_variant_t( (long) 5) );
Param1->Value = _variant_t( (long) 5 );
Cmd1->Parameters->Append( Param1 );
 
// Open Recordset Object.
Rs1 = Cmd1->Execute( &vtEmpty, &vtEmpty2, ADODB::adCmdText );
 
}
 
catch( CException *e ) { e->Delete(); }
catch(...) { }
                        