Set rs_ID = New ADODB.Recordset
     SQL_ID = "SELECT StartID FROM tblHersteller WHERE Hersteller = '" & _
       lstHersteller.List(lstHersteller.ListIndex) & "'"
     rs_ID.Open SQL_ID, DE1.conFahrzeugDB
     txtID.Text = rs_ID.Fields("StartID").Value   '    Feldinhalt bei 
     ' NULL-Werten abfragen und ändern
     rs_ID.Close
     Set rs_ID = Nothing

Uli

Wissen ist Macht; nichts wissen macht auch nichts!