帮我看一下，这代码哪里错了？

[mprogramer]

procedure TForm4.FormShow(Sender: TObject);
var str:string;
begin
str:='DBQ='+'database\database.mdb'+';Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;UID=admin;UserCommitSync=Yes;';
adoconnection1.Close;
try
adoconnection1.ConnectionString :=str;
//ADOQuery1.Close;
ADOQuery1.Connection :=adoconnection1;
except
messagedlg('数据连接失败！',mterror,[mbok],0);
end;

end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
adoQuery1.SQL.Clear;
adoQuery1.SQL.Text := 'Insert Into user ([密码]) Values (' + '''' + edit1.Text + '''' + ')' ;
//adoQuery1.SQL.Add('Insert Into user ([密码])');
//adoQuery1.SQL.Add('Values ("abc")');
//adoQuery1.SQL.Add('Values (' + '''' + edit1.Text + ''''+ ')');
//ADOQuery1.SQL.Text := ' Where 用户名='+label1.Caption;
adoQuery1.ExecSQL;
end;

[gangaozh]

adoQuery1.SQL.Text := 'Insert Into user ([密码]) Values ('''' + edit1.Text + ''' ')' ;

[dongxsoft]

最好写出你的代码执行的错误提示，可以节省大家的时间
adoquery1.sql.clear;前加adoquery1.close;
'Insert Into user ([密码]) Values (' + '''' + 中‘[]‘需要吗？

[mprogramer]

还是不对呀？！

[dongxsoft]

写出你的错误提示

[mprogramer]

提示为Too few parameters.expected 1

[dongxsoft]

你的adoconnection的连接参数不够，我没连接过access,给你一段参数参考一下吧（sql server的）：
function GetConnectingString(sServerName,sDataBase,
sUserID,sPassword : string) : string;
begin
Result := 'Provider=SQLOLEDB.1;'
+ 'User ID=' + sUserID + ';'
+ 'Password = "' + sPassword + '";'
+ 'Extended Properties='
+ '"DRIVER=SQLServer;'
+ 'Address=' + sServerName + ',1433;'
+ 'Network=DBMSSOCN;'
+ 'DATABASE=' + sDataBase + ';"';
end;

[byc6352]

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
adoquery1.close;
adoQuery1.SQL.Clear;
//adoQuery1.SQL.Add('Insert Into user 姓名，密码 values('小王'，'''+trim(edit1.text)+''')');
adoQuery1.ExecSQL;
end;