Set TabelleLänder = Db.OpenRecordset("SELECT * FROM Länder")
Do While not TabelleLänder.EOF
  i = i +1
  If TabelleLänder.Fields("Landmöglich") = Land Then
    do exit
  End if
  TabelleLänder.movenext
Loop
 
TabelleLänder.close
ComboBox.ListIndex  =i

Set TabelleLänder = Db.OpenRecordset("SELECT * FROM Länder")
if TabelleLänder.RecordCount > 0 Then
  ComboBox.ListIndex  = TabelleLänder.Fields("ID") 
End if
 
TabelleLänder.close