txtID.Text = rs_ID.Fields ...

txtID.Text = FeldInhalt(rs_ID.Fields("StartID"))

Public Function FeldInhalt(ByRef Feld As adodb.Field) As Variant
'Public Function FeldInhalt(ByRef Feld As Object) As Variant
'verwende die zweite Zeile in einem Klassenmodul (z.B. ActiveX-DLL)
 
    If IsNull(Feld.value) Then
        'wenn der Wert NULL ist
        Select Case Feld.Type
            Case adInteger, adTinyInt, adSmallInt, adBigInt, adUnsignedInt, _
              adUnsignedSmallInt, adUnsignedTinyInt, _
            adDouble, adSingle, adNumeric, adDecimal, adCurrency
                FeldInhalt = 0
            Case adBoolean
                FeldInhalt = False
            Case Else
                FeldInhalt = ""
        End Select
    Else
        'wenn der Wert nicht NULL ist
        FeldInhalt = Feld.value
    End If
 
End Function