He encontrado este ejemplo:

Option Explicit


Dim oApp As Object


Private Sub Form_Load()
Dim db As Object