Da kann auch nix bei rauskommen.
Sieh Dir mal im Debugger das Feld QRY.SQL an. Ich sehe da fast nur Unterstriche...
SELECT Nr_,Beschreibung,geplantes_Startdatum, geplantes_Endedatum, Status, Rech__an_Deb__Nr_ , Name, Projektbuchungsgruppe, Startdatum, erwartetes_Enddatum, ""GeschaftschancePct"" FROM Projekt WHERE Projekt.Nr_ LIKE 'PN%' AND (Status = 'Auftr
ich geb den String von SQL-Statements grundsätzlich immer aus.
also:
dim strSQLStatement as String
strSQLStatement = "SELECT Nr_,Beschreibung,geplantes_Startdatum, geplantes_Endedatum, Status, " &_
"Rech__an_Deb__Nr_ , Name, Projektbuchungsgruppe, Startdatum, erwartetes_Enddatum, ""GeschaftschancePct"" " &_
"FROM Projekt WHERE Projekt.Nr_ LIKE 'PN%' AND (Status = 'Auftrag' OR Status = 'Angebot')"
print "strSQlstatement=" + strSQLStatement
qry.SQL = strSQLStatement
vielleicht ist der Fehler ja irgendwo beim zusammenbauen dieses Strings.