用Datagrid控件,想把查询结果通过Datagrid控件显示，（设置客户端游标,但仍是不显示内容）急急！

Question

设置客户端游标,但仍是不显示内容Dim db As ADODB.Connection
 Dim rs As New ADODB.Recordset  '增加一个记录集对象，用来与DataGrid绑定
  Dim sql As String
  Dim sqlstr As String
  Dim sConnect As String
  sConnect = "PROVIDER=MSDASQL;dsn=mssql;uid=sa;pwd=;"
 DataGrid1.HeadLines = 1.3
  '连接数据库。
  '打开连接
Set db = New Connection
Set rs = New Recordset
db.CursorLocation = adUseClient '设置客户端游标
db.Open sConnect
'设置筛选条件。
  sql = "select 姓名,职位,部门,公司 from 联系人表 "
 strsql = sql + "where " + combo2.Text
 If Option1(0).Value = 1 Then
  strsql = strsql + " = '"
  strsql = strsql + Text1.Text + " '"
  Else
  strsql = strsql + " like '%"
   strsql = strsql + Text1.Text + " % '"
End If
   '设置排列方式。
   strsql = strsql + "order by " + Combo1.Text
   
   Set rs = db.Execute(strsql)
   '用Datagrid控件
   Set DataGrid1.DataSource = rsdb.Close

Answer 1

db.Close
------------
把这句注释掉