vb6一次多个全局变量的问题

set2表中有两字段dian1 dian2,都要在模块中读出来存为全局变量为dian19, dian29，但现分别定义全局变量，要读两次数据库，可否只读一次数据库？
Public Function dian19() As String
Set rs = New ADODB.Recordset
sql = "select top 1 * from set2"
rs.Open sql, cnn, 3, 3
dian19 = rs("dian1")
'在这里可否一并得到dian29 = rs("dian2")
Call closedb
End Function

那就是：
Public Function dian19() As String
Set rs = New ADODB.Recordset
sql = "select top 1 * from set2"
rs.Open sql, cnn, 3, 3
dian19 = rs("dian1")
dian29 = rs("dian2")
Call closedb
End Function

叙述不清楚，详细说明。