ms-access - Delphi からの Access データベースに対するクエリの構文エラー

Question

MS Access データベースから情報を取得しようとすると、同じエラーが発生し続けます。以下は私のコーディングです。

var      
iTemp, iX, iY, k : Integer;
sDate : String;

begin

  iTemp := 0;
  DB.Close;
  DB.SQL.Add('SELECT Count(UserID) AS Total FROM tblResults;');
  DB.Parameters.ParamByName('ID').Value := pID;
  DB.ExecSQL;
  DB.Open;

  iTemp := DB.FieldByName('Total').AsInteger;

  if iTemp = 0 then
    ShowMessage('Sorry but we do not have any test results for you. Take a test and check your result !')
  else
  Begin

    DB.Close;
    DB.SQL.Add('SELECT Mark,DateTested AS Total FROM tblResults WHERE UserID=:ID;');
    DB.Parameters.ParamByName('ID').Value := pID;
    DB.ExecSQL;
    DB.Open;

    for k := 1 to iTemp do
    Begin

    iX := k;
    iY := DB.FieldByName('Mark').AsInteger;
    sDate := DB.FieldByName('DateTested').AsString;

    Chart1.Series[0].AddXY(iX,iY,sDate,clTeeColor);

    DB.Next;

    End;

    Db.Close;
  End;

エラーは

構文エラー。クエリ式で 'Username="SELECT Count(UserID) AS Total FROM tblResults'

私は本当にこのエラーを理解していません。このことを機能させるのを手伝ってください。