查询数据库的问题

Set conn = New ADODB.Connection
a = "provider=Microsoft.Jet.OLEDB.4.0; data source=f:abcd.mdb;Jet OLEDB:Database password=111;Persist Security Info=false"
'数据库连接conn.Open a '打开数据库
Set rs = New ADODB.Recordsetsql = "select max(r_num)  from abb"
rs.Open sql, conn, 1, 3
'If rs.Fields("r_num") <> "" Then
Text1.Text = rs.Fields("r_num")
'Else
'Text1.Text = "编号为空"
'End If
rs.Close
conn.Close这段是哪里错了呀。N久不用忘光了。请指教！提示：实时错误 3265 在对应所需名称或序数的集合中，未找到项目。我是想找这个字段中最大的值，读取到text1中。