'using connection object
'in general section
dim conn as adodb.connection
dim rs as adodb.recordset
'in form load
set conn=new adodb.connection
set rs=new adodb.recordset
conn="provider=microsoft jet.4.0.oledb;data source=;persist security info=false"
conn.open
rs.open "select *from ur tablename",conn,adopendynamic,adlockoptimistic