ERRO AO FAZER CONEXAO ADO

Module Module8
    Sub main()
        Dim objconn As ADODB.Connection
        Dim objrs As ADODB.Recordset
        Dim objcmd As ADODB.Command
        Dim strconn As String

        [ô]é assim que está postado no livro
        strconn = [Ô]Driver={SQL Server}; Database=CursoVBNet; Server=(local)\SqlExpress; UID=;PWD;[Ô]

        [ô]MAS eu, no inicio, errei e criei a base de dados conforme abaixo (SQL Express EE)
        strconn = [Ô]Driver={SQL Server}; Database=C:\Inetpub\wwwroot\Curso_VBNet\CursoVBNet; UID=;PWD=;[Ô]
        [ô]cria uma conexao a tela abri-la
        objconn = New ADODB.Connection()
        Try
            objconn.Open(strconn)
        Catch e As SystemException
            Console.WriteLine([Ô]Erro na abertura da conexão:[Ô] + e.Message)
            pause()
            Exit Sub
        End Try

        [ô]instancia um objeto recordset para receber os resultados
        objrs = New ADODB.Recordset

        [ô]define propriedades do recordset
        objrs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        objrs.CursorType = ADODB.CursorTypeEnum.adOpenStatic

        [ô]define um objeto adodb.command e define suas propriedades
        objcmd = New ADODB.Command()
        objcmd.CommandType = ADODB.CommandTypeEnum.adCmdText
        objcmd.CommandText = [Ô]select * from tab_users order by idnum[Ô]
        objcmd.ActiveConnection = objconn
        Try
            objrs = objcmd.Execute
        Catch e As SystemException
            Console.WriteLine([Ô]Erro:[Ô] + e.Message)
            pause()
            Exit Sub
        End Try

        Dim fld As ADODB.Field
        [ô]imprime o cabecalho
        For Each fld In objrs.Fields
            Console.Write([Ô]{0,-12}[Ô], Left(fld.Name.ToString, 10))
        Next
        Console.WriteLine()

        [ô]imprime o recordset
        Try
            While (Not objrs.EOF)
                For Each fld In objrs.Fields
                    Console.Write([Ô]{0,-12}[Ô], Left(fld.Value.ToString, 10))
                Next
                objrs.MoveNext()
                Console.WriteLine()
            End While
        Catch e As SystemException
            Console.WriteLine([Ô]Erro:[Ô] + e.Message)
        Finally
            objconn.Close()
            pause()
        End Try
        objconn = Nothing
        objrs = Nothing
    End Sub
    Sub pause()
        Console.Write([Ô]Tecle enter para encerrar: [Ô])
        Console.ReadLine()
    End Sub
End Module