Bases de datos y VB 6.0

[aigama]

Mi aplicación es para gestionar una base de datos. La aplicación debe tratar los datos de la base de datos, introducir nuevos datos, modificarlos, etc. Para ello, hasta ahora abría la base de datos de la siguiente manera:

dim ws as workspace
dim db as database

Set ws = CreateWorkspace("", "admin", "", dbUseJet)
Set db = ws.OpenDatabase(App.Path & "\Nombre_DB.mdb", False, False)

De esta forma, cuando necesito tratar los datos de la base de datos utilizo objetos "recordset" o "querydef", según la acción que quiera realizar.
Para ello utilizo el objeto "database". Por ejemplo:

dim rs as recordset
dim sql as string

sql="select * from ALUMNOS where DNI=" & dni
set rs=db.OperRecordset(sql)

o:

dim qd as QueryDef

set qd=db.CreateQueryDef("")
qd.sql="delete ALUMNOS where DNI=" & dni
qd.Execute
qd.Close

Hasta ahora tengo toda la aplicación así. Pero al finalizarla, le pondré una clave a la base de datos (para hacer pruebas no la necesitaba) y para poder acceder a la base de datos realizo la conexión como me has dicho. Pero ahora no tengo el objeto "database" por ningún lado. Con lo cual tendría que modificar todo el código. Cómo puedo volver a abrir un objeto "database" con la conexión que me has dado?
Espero que con todo esto puedas entenderme... Muchas gracias.