Dear Frinds i fill data grid in visual basic with adodb connection there is no any error at run time but i can't show data i grid

Code:
  cn.Open
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from info", cn, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    rs.Close
    cn.Close