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'