Private Sub Datenbank_Update(ByVal oid As Integer, ByVal oWert As Integer)
    Dim SqlString As String = "UPDATE Maschinen SET Reihenfolge=@1 WHERE id = " _
      & oid
 
        Using Conn As New OleDbConnection(oConnection)
            Using cmd As New OleDbCommand(SqlString, Conn)
                cmd.CommandType = CommandType.Text
 
                cmd.Parameters.AddWithValue("@1", oWert)
 
                Try
                    Conn.Open()
                    cmd.ExecuteNonQuery()
                    Conn.Close()
                    'MsgBox("Daten wurden aktualisiert", 
                    ' MsgBoxStyle.Information)
                Catch ex As Exception
                    MsgBox("Fehler beim Update" & vbCrLf & ex.Message, _
                      MsgBoxStyle.Information)
                Finally
                    If Conn.State = ConnectionState.Open Then
                        Conn.Close()
                    End If
                End Try
            End Using
        End Using
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)