Public Sub Form_Load()
 
...
 
 ' Spalte Anrede, Vorname, Nachname aus Tabelle Eigentuemer
 sSqlGebEigentuemer = "SELECT Eigentuemer_Id, Nachname, Vorname FROM" & _
   "Eigentuemer WHERE Eigentuemer.Eigentuemer_Id =" & _
   "GebaeudeR_Eigentuemer_Id"
 
      With rstGebEigentuemer
          ' Recordset-Objekt vom Typ sSqlGebEigentuemer öffnen.
          .Open Source:=sSqlGebEigentuemer, _
               ActiveConnection:=ADOcn, _
               CursorType:=adOpenKeyset, _
               LockType:=adLockOptimistic, _
               Options:=adCmdText                                 <----- _
               hier kommt die Meldung
 
           Combo1.Text = rstGebEigentuemer.Fields(1) & " " & _
             rstGebEigentuemer.Fields(2)
       End With
...
End Sub

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.