Function devOdbcConn() As Boolean
    Dim strDSN As String, strUsrName As String, strPwd As String
    
    If odbcConn Is Nothing Then
      strDSN = "testdb"
      strUsrName = "username"
      strPwd = "password"
      devOdbcConn = makeOdbcConn(strDSN, strUsrName, strPwd)
    Else
      devOdbcConn = True
    End If
    
End Function
