Public Class From2
    Public Sub New()
        'dieser code ist ja schon da
    End Sub
 
    Public Sub New(ID as integer)
        me.New()
        if ID = 0 then
            ' es wird ein neuer eintrag angelegt
        else
            ' es wird ein bestehender eintrag bearbeitet
        end if
    End Sub

Dim frm as New Form2(0) ' für einen neuen eintrag
 
Dim frm as New Form2(ID) ' hier soll die ID übergeben werden, des datensatzes 
' den Du bearbeiten willst