请教，代码问题

Question

有表a,表b,通过查询得到表c表 a    
金额 经手人号         日期
10     101          2008-1-1
20     101          2008-1-20
30     102          2008-1-22    
40     102          2008-1-30
······ 
表 b 
经手人号 经手人姓名 
101        张三 
102        李四      
······ 
表 c
金额         日期      经手人姓名
20        2008-1-20      张三
30        2008-1-22      李四
······查询语句：select a.金额, a.日期, b.经手人姓名 from a , b where a.经手人号 = b.经手人号 and 日期  between '2008-1-2' and '2008-1-24'用VB代码怎么实现？

Answer 1

Set myConn = New ADODB.Connection
myConn.ConnectionString = "driver={SQL Server};" & _
"server=服务器名;uid=sa;pwd=密码;database=数据库名"
myConn.Open
Set myRS = myConn.Execute("select a.金额, a.日期, b.经手人姓名 from a , b where a.经手人号 = b.经手人号 and 日期  between '2008-1-2' and '2008-1-24' ")
text1.text=myRS("金额")
text2.text=myRS("日期")
......

Answer 2

对了,最后还要加几句:myRS.close
set myRS=nothing
myConn.close
set myConn=nothing