Originariamente inviato da Delas
[B]col tuo metodo non sono riuscito, allora ho provato così: in un modulo:
codice:
Sub Connetti()

'    Dim miaConn As ADODB.Connection
'    Dim mioSet As ADODB.Recordset
    Dim miaStringaConn As String
'
'    Set miaConn = New ADODB.Connection
'    Set mioSet = New ADODB.Recordset



	

		

			

			
				' e' la stessa cosa, ma cosi pulisci il codice :bubu: 

    Dim miaConn As new ADODB.Connection
    Dim mioSet As new ADODB.Recordset
			
		

	



    percorsoDb = App.Path & "\sgp97.mdb"
    miaStringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    miaStringaConn = miaStringaConn & "Data Source="
    miaStringaConn = miaStringaConn & percorsoDb
    miaStringaConn = miaStringaConn & ";Persist Security Info=False"
        
        
    miaConn.ConnectionString = miaStringaConn

End Sub
nell'evento form_load:
codice:
Connetti
    
Set objRS = New ADODB.Recordset
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic

objRS.Open "SELECT * FROM famiglie ORDER BY famiglie.famiglia", _
miaConn, , , adCmdText
Metti la stringa di query in una variabile:
dim strSQL as string
strSQL="SELECT * FROM famiglie ORDER BY famiglie.famiglia"

Poi assegni al recorset il risultato della tua query cosi:
set objRS= miaConn.execute(strSQL)

Poi ti carichi il tuo recorset nel datagrid o flexgrid.

Consiglio:
Le variabili di connessione dichiarale globali al documento cosi non devi ridichiararle ogni volta che effettui una connessione.



Spero di esserti stato d'aiuto

Laufer