thanks nilesh
i have done the ways u have said & i think i haven't got what u r saying
the things which i have done r
i add a module & in that module i have written the code for the connection establishment as

global constock as ADODB.Connection

Public function connect(constock as ADODB.Connection)
set constock = NEW ADODB.Connection
with constock
.ConnectionString="it's working fine"
.Prov.
.Open
End with
End function

AND in the form load function i m writing code as

dim rs as ADODB.Recordset
set rs= NEW ADODB.Recordset
rs.open "Select * from table",constock,adOpendynamic,adlockoptimistic

so do let me know where i m not doing fine

thanks a lot for reply
best of luck