Hallo,
bei der Ausführung dieser sql query passiert nix
warum eigetlich ? keine fehlermeldung und gar nichts.
danke
---------------------------------------------------------------
Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT total.vorname, total.alter FROM total WHERE (((total.vorname)= 'peter'));"
Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)
Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing
---------------------------------
