VB6 module to pass recordset to form -

lets call moduser. in moduser have adodb record set moduser, open form. lets call frmuser2. when frmuser2 initialize. use recordset have moduser. how pass recordset moduser frmuser2?

i tried creating public sub under frmuser2. error says "run time error 13 type mismatch"

here snippet

ssql = "select name employee" rs.open ssql, adocon, adopenkeyset if rs.recordcount > 1     frmuser2.populatelist(rs) end if 

in frmuser2 have public function ( tried sub too)

public function populatelist(rs adodb.recordset)     count = 0 rs.recordcount - 1         lstmodels.additem rs(0)         rs.movenext     next     rs.close end function 

i tried show , , can form appear, have no way pass record set.

frmuser2.show 

please help. thank you

i'm not fan of how you're trying this, working want do, first create public recordset property in form , assign recordset module before showing form.

module code:

dim objform frmuser2  ssql = "select name employee" rs.open ssql, adocon, adopenkeyset if rs.recordcount.eof = false     set objform = new frmuser2     frmuser2.recordset = rs     frmuser2.show end if 

form code:

private sub form_load()      if not recordset nothing         populatelist     end if end sub  public function populatelist()      recordset.movefirst 'defensive, make sure we're on first record     lstmodels.clear     while recordset.eof = false         lstmodels.additem recordset(0)         recordset.movenext     next     recordset.close  end function 

i think preferable module have public method returns employee recordset. form call method when needs data. set rsemployees = moduser.getemployees()