str= "select * from 表 where ID='" & Trim$(Text1.Text) & "' and address like '人民路%'"
lrRec.Open str, gdbConn, adOpenKeyset, adLockOptimistic
If lrRec.RecordCount <> 0 Then
MsgBox "此用户合法！",vbOKOnly, "友情提示"
else
MsgBox "此用户不合法！或者还没有注册",vbOKOnly, "友情提示"
end if

如果我那DB1。MDB中的FL1表里共Z（1~9）和J（1~9）共18个字段，

一共50个记录，当Z（I）=（YH）时，对应的J（I）要求累计相加输出到TEXT3。TXT里，怎么写呢？