asta client 的问题

Question

Procedure TFLogin.GetUserS();
Var
  AUsers:TStringList;
  TmpDateSet:TAstaClientDataSet;
Begin
  Try
    AUserS:=TStringList.Create();
    TmpDateSet:=TAstaClientDataSet.Create(nil);
    TmpDateSet.Close;
    TmpDateSet.AstaClientSocket:=FMain.CltSocket;
    TmpDateSet.SQL.Text:='Select * from SysUserS';
    TmpDateSet.Open;
 //   ShowMessage('ok'); 
    TmpDateSet.First;
    while not TmpDateSet.Eof do
       begin
         Ausers.Add(TmpDateSet.FieldByName('SuName').AsString);
         TmpDateSet.Next;
       end;    // while
    LogUser.Items:=AUsers;
  Finally
    AUserS.Free;
    TmpDateSet.Free;
  End;
End;
提示出错意思：数据库关闭不能进行数据库操作