Undgå at oprette references i Word?

Kan det lade set gøre at kode sig ud af følgende

Sub AutoOpen()
   
    Set Connection = New ADODB.Connection
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\demo.mdb;"
    Connection.Open strConnection
     
    'Open sager_generelt table with a cursor that allows updates
    Set rs = New ADODB.Recordset
    strSQL = "tblStats"
    rs.Open strSQL, strConnection, adOpenKeyset, adLockOptimistic, adCmdTable
 
       
    ' Pass data to db
      rs.AddNew
      rs!Counter = 1
      rs!Date = Now()
      rs.Update

' clean up
    rs.Close
    Connection.Close
    Set rs = Nothing
    Set Connection = Nothing
End Sub

Som det er nu skal jeg ud på vher enkelt PC og tilføje ref. til ADOx 2.8.

Kan man kode sig udenom dette

______________
Jaze