这里显示“[ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序这个错误”

请问应该怎样改？

if not ADOQuery1.Locate('用户名',edit1.Text,[]) then
showmessage('用户名错误')
else if ADOQuery1['密码']<>edit2.Text then
showmessage('密码错误')
else
begin
user.nickname := ADOQuery1['用户名'];
User.Id:=ADOQuery1['Id'];
user.query_info:= ADOQuery1['query_info'];
user.query_infoall:= ADOQuery1['query_infoall'];
user.edit_info:= ADOQuery1['edit_info'];
user.query_train:= ADOQuery1['query_train'];
user.query_trainall:= ADOQuery1['query_trainall'];
user.edit_train:= ADOQuery1['edit_train'];
user.query_checkon:= ADOQuery1['query_checkon'];
user.edit_checkon:= ADOQuery1['edit_checkon'];
user.query_comment:= ADOQuery1['query_comment'];
user.edit_comment:= ADOQuery1['edit_comment'];
user.recorder:= ADOQuery1['recorder'];
user.administrator:= ADOQuery1['administrator'];
user.equipment:=ADOQuery1['equipment'];