我现在是进入数据库jyglxt，打开表organ_password_database后我想删除此数据库jyglxt，直接删除提示说数据库正在使用，我想关闭，如何做

txtSQL = "select * from organ_password_database where name='" & Trim(loginid.Text) & "' AND password='" & Trim(loginpass.Text) & "'"
   Set mrc = ExecuteSQL(txtSQL, MsgText)
打开数据库jyglxt里的表organ_password_database
如何关闭？
close jyglxt不对，close organ_password_database也不对
应该如何写啊我现在是进入数据库jyglxt，打开表organ_password_database后我想删除此数据库jyglxt，直接删除提示说数据库正在使用，我想关闭，如何做？