DB Connection cannot be set by function

From: Culture (limivorous_at_hotmail.com)
Date: 06/22/04 

Date: 22 Jun 2004 09:50:27 -0700

I am trying to use a function to hold the db connection, like this:

Function DBConnection() As ADODB.Connection

  Dim strConnect
  Dim vDatabase
  Dim vUsername
  Dim vPassword
  Dim ObjConn As ADODB.Connection

  vDatabase = "USERNAME"
  vUsername = "PASSWORD"
  vPassword = "DB"
    
  strConnect = "Provider=MSDAORA;Data Source=" & vDatabase & ";User
ID=" & vUsername & ";Password=" & vPassword & ";"
  ObjConn.Open strConnect

  Set DBConnection = ObjConn
  
End Function

Private Sub ExecuteStatement()

  Set StdProc = New ADODB.Command
  Set StdProc.ActiveConnection = DBConnection

End Sub

Which seems straightforward but errors with
"Object Variable or with variable not set" when the activeconnection
is set...

Can someone tell me what i am doing wrong :)

Thanks in advance,

Craig

Relevant Pages