vb MSHFlexgrid使用 打印

我用VB做的一个查寻，但是显示的结果老是查寻两次数据库的结果
========================================================
Private Sub BTfind_Click()
DataTxt.Text = Format(txtRudate, "yyyy-mm-dd")
Call OpenConn
sql = "select * from s_customer"
rs.Open sql, cn, , 1, 1
Set MSHFlexGrid1.DataSource = rs
' txtSQL = txtSQL & " order by student_ID "
'Set mrc = ExecuteSQL(txtSQL, MsgText)

With MSHFlexGrid1
' .Row = 2
.CellAlignment = 4
.TextMatrix(0, 1) = "客户编号"
.TextMatrix(0, 2) = "客户姓名"
.TextMatrix(0, 3) = "联系电话"
.TextMatrix(0, 4) = "联系地址"
.TextMatrix(0, 5) = "交款数额"
.TextMatrix(0, 6) = "旅行信息"
.TextMatrix(0, 7) = "交款时间"
.TextMatrix(0, 8) = "经办人"

Do While Not rs.EOF
.R

vb MSHFlexgrid使用 打印 VB中MSHFlexGrid的问题 (VB) MSHFlexGrid 的一个问题 vb的mshflexgrid控件使用问题 急问：vb中MSHFlexGrid与MSFlexGrid的区别 关于VB MSHFlexGrid控件的使用.我头都大了. 请问vb中的MSHFlexGrid是如何进行对齐的? 我的VB(SP6.0)中为什么没有MSHFlexgrid 关于VB mshflexgrid控件,查询表时0列不写入的问题 VB的MSHFlexGrid控键怎么实现复制功能,用粘贴板?Clipboard.SetText