Dim objVerbindung As OleDbConnection
        Dim objBefehl As OleDbCommand
        Dim objdaten As OleDbDataReader
        Dim sqltext As String
        Dim SuchString As String = "1"
 
        Dim T_DAtenbank As String = Server.MapPath(Allg.Datenbank)
 
        sqltext = "select * from News where NewsID = '" & SuchString & "'"
 
        objVerbindung = New OleDbConnection( _
          "Provider=Microsoft.Jet.oledb.4.0;Data Source= '" & T_DAtenbank & "'")
        objVerbindung.Open()
        objBefehl = New OleDbCommand(sqltext, objVerbindung)
        objdaten = objBefehl.ExecuteReader
        objdaten.Read()
 
        'Felder der Datenbank den Labels oder Variablen zuweisen
 
        Textbox3.Text = "" & objdaten.Item("Beschreibung")
 
 
        objVerbindung.Close()
        objVerbindung = Nothing
        objdaten.Close()
        objdaten = Nothing
        objBefehl = Nothing