[VB6]collegamento DB DataGrid....

[seifter]

Ciao a tutti
premetto che ho spulciato tutti i post possibili ma non riesco a capire perche non mi funziona il collegamentro tra DB e datagrid.
Ho seguito l'esempio delle "Pillole" ma mi si blocca con il seguente errore:
Errore Di Run-time 438
proprietà o metodo non supportati dall'oggetto.
Il codice è il seguente:
In un modulo:

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data source = C:\Documents and Settings\progettovb6maggio262004\dbut.mdb """
'nella prima riga si specifica il provider
'nella seconda il percorso al db
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open 'apertura ricordarsi di chiuderla
End With
With Rs
.ActiveConnection = Cn ' imposta a che connessione si riferisce
.LockType = adLockOptimistic ' imposta il tipo di lock
End With
End Sub

nel Form con datagrid:
Private Sub Form_Load()
Dim setup As Integer

Call connetti
Rs.Open "SELECT * FROM tdu", Cn, 1, 2 ' apre il recordset leggendo tutti i campi dalla tabella' TBTessuti

End Sub
Set Grid2.DataSource = Rs 'riempie la vostra griglia coi dati del recorset
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Rs.Close
Cn.Close

End Sub
il debug mi evidenzia la riga:

Set Grid2.DataSource = Rs 'riempie la vostra griglia coi dati del recorset .
Grazie per l'aiuto

[seifter]

up :quote: up :quote: up :quote:

[Boldan]

Sei sicuro che Grid2 sia un oggetto di tipo DataGrid?
Sembrerebbe che il compilatore non riconosta la proprietà DataSource dei Grid2, che mi fa pensare che l'oggetto Grid2 non sia una DataGrid.

Ciao

[seifter]

Si sono sicuro che sia un DataGrid (era DataGrid2),è per questo che non capisco perchè non funziona.
L unico dubbio che ho è che la tabella del database abbia qualche errore ma l'ho anche rifatta più volte e non trovo nulla.