flexgrid med ADO

hej jeg har prøvet at oprette et flexgrid med en ADO connection i VB, men jeg får en fejl jeg ikke kan gennemskue.  min kode er:

Private Sub flxGrid()
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Myconn As String

Myconn = "DRIVER={SQL Server};SERVER=NORLT20030;DATABASE=simple;Trusted_Connection=YES"

Cn.Open Myconn

Rs.Open "SELECT navn FROM personer", Cn, adOpenDynamic, adLockOptimistic, adCmdText

Set MSFlexGrid1.DataSource = Rs

End Sub


Det er i "Set MSFlexGrid1.DataSource = Rs" at problemet opstår, som om den aldrig får RS lagt over i.  nogen der kan se hvad jeg gør forkert?

Mvh JSG