问一句语法的用法
Dim str As String
Dim rs As ADODB.Recordset
str = "select max(bed_no) from BED_REC where WARD_CODE= '030809 ' "
Set rs = ExecuteSQL(str, True)
If rs.Fields(0) < Int(TxtSBed.Text) Then '输入的床位号大于最大床位号，则符合床位要求，可以查看该床位是否有病人
MsgBox "没有该床位号，请重新输入！ "

请高手说明一下：
1、这句的意思 Dim rs As ADODB.Recordset
2、str = "select max(bed_no) from BED_REC where WARD_CODE= '030809 ' "这句的030809是什么意思？
3、ExecuteSQL()这个函数的用法
4、这句中Fields(0)是什么意思？rs.Fields(0)

[解决办法]
建议楼主看一下ＶＢ的数据库编程方面的书先，你的问题让人不知道怎么回答。

*****************************************************************************
菜鸟一只
[解决办法]
请高手说明一下：
1、这句的意思 Dim rs As ADODB.Recordset
2、str = "select max(bed_no) from BED_REC where WARD_CODE= '030809 ' "这句的030809是什么意思？
3、ExecuteSQL()这个函数的用法
4、这句中Fields(0)是什么意思？rs.Fields(0)
-----------------------
1.定义一个ado记录集,
2. '030809 '是表中ward_code字段的值.
3.ExecuteSQL()应该是作者自已写的一个自定义函数,根据传入的字符串str执行操作,返回一个记录集吧.
4.Fields(0)表示第0个字段.rs.Fields(0)表示记录集rs第0个字段的值