main.OleDbDataAdapter3.SelectCommand.CommandText = "Update Projekte set" & _
  "Projektbezeichnung = '" & main.txt_tp3_Projektbezeichnung.Text.Trim & _
            "' where Projektnummer = " & main.txt_tp3_Projektnummer.Text.Trim & _
            ""
 
            main.LieferantenbewertungDataSet.Clear()
            main.OleDbDataAdapter3.Fill( _
              main.LieferantenbewertungDataSet.Projekte)
 
            MsgBox(main.OleDbDataAdapter3.SelectCommand.CommandText.ToString)