MI AYUDA DE VISUAL BASIC! ME DESEO MUCHA SUERTE!!!! JEJE
-----------------------------------------------------------------------
FILRANDO UNA DYNASET!
---------------------
On Error GoTo FilterErr
Data3.Refresh
Dim filtro As String
Dim MITABLA1 As Recordset
Dim MITABLA2 As Recordset

filtro = "cliente = " & Data1.Recordset("codigo") 'ESTO ES EL FILTRO SELECCIONADO

Data3.Recordset.Filter = filtro
Set TABLA1 = Data3.Recordset 'COPIA EL CONJUNTO DE LOS RESULTADOS
Set TABLA2 = TABLA1.OpenRecordset(TABLA1.Type) 'APLICA EL FILTRO
Set Data3.Recordset = recRecordset2 'Asigna de nuevo al objeto Recordset original
Exit Sub
FilterErr:

MsgBox "Error:" & Err & " " & Err.Description
Exit Sub

OTROS FILRTOS,ORDENAR; CON EL METODO RECORDSOURCE:
------------------------------------------
Data3.RecordSource = "SELECT * from alquileres where entregado like " & (0) & " order by entregado" 'MUSTA EL CODIGO 0
Data3.Refresh

Data3.RecordSource = "SELECT * from alquileres order by codigo" 'ORDENA LA TABLA POR CODIGO
Data3.Refresh
DONDE = VESMER "??/05/"&ANIO
Data1.RecordSource = "Select * from agenda where fecha like '" & (MesVer) & "*' order by fecha"
Data1.Refresh

SQL,CREAR UNA TABLA, CREAR INDEX, BORRAR TABLA:
-----------------------------------------------

CREAR TABLA:
------------
Dim MiSQL As String
MiSQL = "CREATE TABLE inventario "
MiSQL = MiSQL & "( Codigo TEXT (2), "
MiSQL = MiSQL & "Nombre TEXT (30), "
MiSQL = MiSQL & "Cantidad LONG )"
mibase.Execute MiSQL
INDEXAR TABLA
-------------
Dim MiSQL As String
MiSQL = "CREATE INDEX idxCodigo ON inventario ( Codigo ) "
mibase.Execute MiSQL

BORRAR TABLA
------------
Dim MiSQL As String
MiSQL = "DROP TABLE inventario "
mibase.Execute MiSQL

ESTO ES USANDO DAO Y LO DE SQL TAMBIEN USA DAO:
-----------------------------------------------
Dim mibase As Database
Dim tabla As Recordset
Set mibase = OpenDatabase("base.mdb")
Set tabla = mibase.OpenRecordset("clientes")

ESTO ES PARA BUSCAR EL PRIMER X DE REGISTRO DE UNA TABLA.
----------------------------------------------------------

On Error Resume Next
buscar = "[mp3] like '*" & Trim(Text3.Text) & "*'"
Data1.Recordset.FindFirst buscar
Text4.Text = "Tema Nº " + Format(Data1.Recordset.AbsolutePosition + 1) + " de " + Format(Data1.Recordset.RecordCount)
OTROS POR LAS DUDAS:
-------------------
If MsgBox("Seguro de Borrar la lista de temas?", vbQuestion + vbYesNo, "Borrar") = vbYes Then
Data1.Database.Execute "Delete * from mp3"


QUE SE YO.
-----------------------------------------------------------------------
UN POCO DE ARCHIVOS!
--------------------
DIM BUFER AS STRING

Open Archivos.filename For Binary As 1
BuFer = Space$(CLng(LOF(1)))
Get #1, , BuFer
Close #1
ESTO ABRE UN ARCHIVO DE UNA SOLA VES!(AUNQUE EL STRING SEA DE 64000)
----------------------------------------------------------------------
BUENO, ESTO ES PARA BUSCAR UNA CADENA EN UN BINARIO
---------------------------------------------------
*** SOLAMENTE EL LOS ULTIMOS 6000 BYTES, LO USE PARA MI MP3CARAUDIO!**

On Error Resume Next

Dim enbufer As String * 6000
SongPath = MMControl1.filename

Open SongPath For Binary As 1
N& = LOF(1): If N& < 256 Then Close 1: Return
Get #1, (N& - 3000), enbufer: Close 1
a$ = "": Cr$ = Chr$(13)

p = InStr(1, enbufer, "++++", 1)
If p = 0 Then
a$ = "No Se ha cargado la letra del tema!"
Text3.Tag = a$
Else
a$ = a$ & Mid$(enbufer, p + 4, N&)
Command1.Tag = Len(a$)

End If
Info = a$

Text3.Text = Info
If a$ = "No Se ha cargado la letra del tema!" Then
letext.Text = ""
Else
letext.Text = Text3.Text
End If
ESTO ES LO DE MP3
-----------------
TOMAR
F$ = "mp3.ini"
Open F$ For Input As 1
Line Input #1, a
Text2.Text = a
lopl
Close 1: Exit Sub
PONE
F$ = "mp3.ini"
Open F$ For Output As 1

'For j = 1 To List1.ListCount
'rest = Left(J - 1, 5)
Print #1, Text2.Text
'Next
Close 1: Exit Sub

------------------------------------------------------------------
ESTO ES PARA QUE UNA FORM1 ESTE EN ONTOP
----------------------------------------

Sub AlwaysOnTop(frmID As Form, OnTop As Integer)
' Pass any non-zero value to Place on top
' Pass zero to remove top-mostness
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
If OnTop Then
OnTop = SetWindowPos(frmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
OnTop = SetWindowPos(frmID.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If

End Sub

POR EJEMPLO ALWAYSONTOP FORM1, 1