Ho scritto questo codice in VB

codice:
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
codice:
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