Enlazar MSHFlexgrid a ADO

En esta ocasion mostrare una aplicacion sencilla que permite enlazar una base de datos SQL Server (Northwind) con el control MshFlexgrid.

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cad As String
cad = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=FAMILIA"
cn.ConnectionString = cad
cn.Open
rs.Open "select * from Products", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
rs.Close
Set rs = Nothing
End Sub

como vemos el codigo es lo habitual que hacemos cuando nos enlazamos a ADO, hasta aca este pequeño Post un saludo. bye que buena cancion la mejor!!!!!!!!