'定义一个字符串变量 strDim str As String '给str赋值为一条SQL查询语句,从house,guestinfo,guest 表中查询ding='1'且 house.nam=houseno 且 guestinfo.numb=guest.numb 的记录
str = "select * from house,guestinfo,guest where ding='1'and house.nam=houseno and guestinfo.numb=guest.numb"'定义一个数据库记录集myrs
Dim myrs As ADODB.Recordset'实例化
Set myrs ...