sqlstr  =  "insert  into  工程表(合同号,工程名,站名,架号,子框号,盘位号,软件版本,机盘编号,录入人员,录入时间)  values('"  &  Trim(txtBargain.Text)  &  "','"  &  Trim(txtProject.Text)  &  "','"  &  Trim(txtStation.Text)  &  "','"  &  Trim(cbShelf.Text)  &  "','"  &  Trim(cbSubFrame.Text)  &  "','"  &  Trim(cbPosition.Text)  &  "','"  &  Trim(txtSoftVersion.Text)  &  "','"  &  Trim(txtCode.Text)  &  "','"  &  Trim(UserText.text)  &  "','" & temp & "')"