如何动态绑定MSHFlexGrid控件？（在程序中，用代码。vb6）

Question

在程序的某个事件中动态创建connection对象然后如何编写设置MSHFlexGrid1属性的代码，
比如datasource 和 datamember什么的（如果需要）然后让他显示动态链接的那个数据库的内容。本人初学，希望附以代码，万分感谢。

Answer 1

Dim cn As New adodb.Connection
   Dim rs As New adodb.Recordset
   cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"
   cn.Open
   rs.ActiveConnection = cn
   rs.Source = "select * from Customers"
   rs.CursorType = adOpenStatic
   rs.CursorLocation = adUseClient
   rs.Open
   Set MSHFlexGrid1.DataSource = rs

Answer 2

Dim cn As New adodb.Connection
   Dim rs As New adodb.Recordset
   cn.Open= "Provider=SQLOLEDB.1;Data Source=IPADDRESS;User ID=USERNAME;Password=PASSWORD;DataBase=DBNAME"
   rs.Open "Select * From TABLE",cn,adOpenStatic
   Set MSHFlexGrid1.DataSource = rs
大写单词都是变量自己根据实际情况替换