ciao.. stò tentando di fare una ricerca nel database e riportare i risultati in una MSHFlexGrid. Questo è tutto il codice presente sulla form:
codice:
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset



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 socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'", DB, adOpenStatic, adLockOptimistic
  
    
  MSHFlexGrid1.ColWidth(0) = 1100
  MSHFlexGrid1.ColWidth(1) = 2000
  MSHFlexGrid1.ColWidth(2) = 2000
End Sub

Private Sub b_cercaok_Click()
Set MSHFlexGrid1.DataSource = RS
End Sub
però pur digitando un nome presente nel database, appena clicco sul pulsante "Cerca" nella flexgrig non appare nulla
perchè?
Ciao