strano errore con MSFlexGrid

[dops]

ciao.. apro una form dove all'interno c'è una MSFlexGrid. Nella sezione dichiarazioni c'è questo:

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset

e al FormLoad inserisco questo codice:

Private Sub Form_Load()
'connessione al datbase
  Set DB = New ADODB.Connection
  DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" & "Data Source=" & App.Path + "\ONN97.mdb"
  DB.Open
  
  Set RS = New ADODB.Recordset
  RS.Open "Select * from Clienti", DB, adOpenStatic, adLockOptimistic
  
  Set MSHFlexGrid1.DataSource = RS
  
  MSHFlexGrid1.ColWidth(0) = 3000
  MSHFlexGrid1.ColWidth(1) = 3000
  MSHFlexGrid1.ColWidth(2) = 1100
End Sub

appena cerco di aprire questa form mi appare questo messaggio di errore:
"Variabile oggetto o variabile del blocco with non impostata"
e mi segna in giallo Set MSHFlexGrid1.DataSource = RS
perchè?