in
vb 6
Declare in a module and you can call it anywhere in your program
Public conn1 as adodb.connection
create
public function openconn()
on error goto errConn
strConn= your connection string
set conn1=new adodb.connection
conn1.connectionstring=strConn
conn1.open
exit function
errConn:
end function
this can be called anywhere
if conn1.state=adstateopen then
conn1.execute(your SQL to execute)
end if
HTH