klein foutje bij oledbreader maar vind niet wat het is (Opgelost)

Private Sub displayrecord()
        Dim Connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\kristof\Mijn documenten\Visual Studio 2005\WebSites\Eindwerk_CO2\App_Data\co2.mdb")

        Try
            Connection.Open()
            Dim objReader As OleDbDataReader
            ' Dim objReader As SqlDataReader
            ' Dim select1 As New SqlCommand("SELECT * FROM Member", SqlConnection1)
            Dim command2 As OleDbCommand = New OleDbCommand("SELECT NieuwsTitel, NieuwsContent FROM tbl_nieuws", Connection)
            Dim oledbadapter As OleDbDataAdapter = New OleDbDataAdapter
            objReader = command2.ExecuteReader()
            While (objReader.Read())
                txt_nieuwstitel.Text = objReader("NieuwsTitel")
                txt_nieuwscontent.Text = objReader("NieuwsContent")
                Response.Write("<br />")

            End While
            objReader.Close()
        Finally

            Connection.Close()
        End Try
    
    End Sub

Private Sub displayrecord()
        Dim Connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\kristof\Mijn documenten\Visual Studio 2005\WebSites\Eindwerk_CO2\App_Data\co2.mdb")
 
        Try
            Connection.Open()
            Dim objReader As OleDbDataReader
            ' Dim objReader As SqlDataReader
            ' Dim select1 As New SqlCommand("SELECT * FROM Member", SqlConnection1)
            Dim command2 As OleDbCommand = New OleDbCommand("SELECT NieuwsTitel, NieuwsContent FROM tbl_nieuws", Connection)
            Dim oledbadapter As OleDbDataAdapter = New OleDbDataAdapter
            objReader = command2.ExecuteReader()
            While (objReader.Read())
                txt_nieuwstitel.Text = objReader("NieuwsTitel")
                txt_nieuwscontent.Text = objReader("NieuwsContent")
                Response.Write("<br />")
 
            End While
            objReader.Close()
        Finally
 
            Connection.Close()
        End Try
 
    End Sub

txt_nieuwstitel.Text &= objReader("NieuwsTitel")

txt_nieuwstitel.Text &= objReader("NieuwsTitel")