In realtà sì ... ma io non credo che il problema sia di codice ... ma piuttosto di istallazione delle OCX e DLL ma in realtà sono aperto a tutti i consigli ... dunque posto il semplice codice:

codice:
  

    Set frmMain.datagrid1.DataSource = Nothing
    Dim Conn As New ADODB.Connection
    RecordsetAvailable = False

............( omissis )

      Conn.CursorLocation = adUseClient
      Rs.Open "Select * from ciccio where pippo = 'ciao'", Conn, adOpenStatic, adLockReadOnly
      If Not Rs.EOF Then
         RecordsetAvailable = True
         frmMain.datagrid1.Visible = True
         Set frmMain.datagrid1.DataSource = Rs ' Riga dove ritengo sia l'errore (anzi diciamo che sono sicuro:-) )
      Else
         frmMain.datagrid1.Visible = False
      End If
Cia'