'SQL-Anweisung festlegen
        LStr_SQL_Text = "Update AKTIEN set AKTIE = ?"
        LStr_SQL_Text = LStr_SQL_Text + ", INFO = ?, NENNWERT = ?, AKTIENART =" & _
          "?,"
LStr_SQL_Text = LStr_SQL_Text + "UMSATZTEXT = ?, KURSPFLEGEDATUM = ?," & _
"LOESCHSCHUTZ = ? WHERE NR =" + Trim$(Str$(GT_AktienNamen_Daten.NR))
        Dim ConnString As String = "Provider=Microsoft.JET.OLEDB.4.0;data" & _
        "source=" + LStr_DatenbankName
        Dim OleDbConn As New OleDbConnection(ConnString)
        Using Con As New OleDbConnection(ConnString)
            'Update durchführen
            Dim cmd As New OleDb.OleDbCommand(LStr_SQL_Text, Con)
            cmd.Parameters.AddWithValue("@AKTIE", GT_AktienNamen_Daten.AKTIE)
            cmd.Parameters.AddWithValue("@INFO", GT_AktienNamen_Daten.INFO)
            cmd.Parameters.AddWithValue("@NENNWERT", _
              GT_AktienNamen_Daten.NENNWERT)
            cmd.Parameters.AddWithValue("@AKTIENART", _
            GT_AktienNamen_Daten.AKTIENART)
            cmd.Parameters.AddWithValue("@UMSATZTEXT", _
            GT_AktienNamen_Daten.UMSATZTEXT)
            cmd.Parameters.AddWithValue("@KURSPFLEGEDATUM", _
            GT_AktienNamen_Daten.KURSPFLEGEDATUM)
            cmd.Parameters.AddWithValue("@LOESCHSCHUTZ", _
            GT_AktienNamen_Daten.LOESCHSCHUTZ)
            Try
                Con.Open()
                cmd.ExecuteNonQuery()
                LBoo_RueckgabeWert = True
            Catch ex As Exception
                Fehler_Anzeige(Hauptmenue_MDIForm, "Fehler:ÄNDERN", ex.Message, _
                  "", "", "", True, True)
                Stop
                LBoo_RueckgabeWert = False
            End Try
        End Using

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de