[VB6]Visualizzare valore querry

[simicasa]

Ho scritto questo codice in VB

Private Sub Form_Load()
Dim str As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "DB\database2000.mdb"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
str = "Select * from tutto WHERE beach.indice = '18'"
' tutto e una tabella ottenuta da una querry in access
cn.Open stringa
rs.Open str, cn, 1
Do While Not rs.EOF
Label50.Caption = rs!Data
Label51.Caption = rs!Beach.ora
rs.MoveNext
Loop
End Sub

il problema e che quando lo eseguo o un errore nella seguente riga

Label51.Caption = rs!Beach.ora

dicendomi che e impossibile trovare il membro o il metodo dei dati come posso fare?
grazie in anticipo per l'aiuto

[wallrider]

Rs("Beach.ora").value oppure Rs!ora

[StegcO]

Intendi forse Debug.Print str?

[oregon]

Originariamente inviato da StegcO
Intendi forse Debug.Print str?

Ma cosa c'entra questa risposta?

[simicasa]

wallrider grazie mille