adoPrimaryRS.Open "select memberid,firstname,lastname,membertypeid,workcompany,title,workaddress,workcity,workstateorprovince,workpostalcode,workcountry,workphone,extension,homeaddress,homecity,homestateorprovince,homepostalcode,homecountry,homephone,datejoined,faxnumber,invoiceworkaddress,memberdues from members where memberid='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic可能是你少两个引号了吧
where memberid=" & Text1.Text & "如果memberid为字符型:
where memberid='"& text1.text & "'