Sub Emilio(ByVal Rutaservidor As String)
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset( _
"SELECT * FROM Flash IN '" & Rutaservidor & "';")
While Rst.EOF = False
'recorre el recordset
MsgBox Rst.Fields(0)
Rst.MoveNext
Wend
Rst.Close
Set Rst = Nothing
End Sub