Frec.Open "select * from " & txt1.text & " where " & txt4.text & "=" & "'" & txt.5.text & "'", newcon, adopendynamic, ad lock optimistic Set txt2.datasource = frec Txt2.data field = "emp_I'd" Set txt3.data