txt导入DBGrid的问题

[weiziming]

var
sTxtName:String;//文件地址和名称是个变量
begin
sTxtName:=OpenDialog1.FileName;
with ADOQuery1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sTxtName;Extended
Properties="text;HDR=Yes;FMT=Delimited"';
SQL.Clear;
SQL.Add('select * from sTxtName');
Open;
end;
end;


这样是出错的，正确的方法是什么，求教大侠？