sqlstr = "update Dbsj set Dbsjsjwc=#" & FormatDateTime(str1) & "#,Dbsjwcsm=" & Trim$(Text2.Text) & " where Dbsjnr like '%" & _
             Trim$(Text1.Text) & "%'"