Visual Basic - Alguien me podría mandar un programa que use B.D.

Por favor, necesito un programa que use Base de datos, no se usar mucho Visual Basic y quiero hacer prácticas con ese programa, ¿Me lo podrían mandar?, Mándenme todos lo que puedan a mi correo. !!!!Por favor!!!!, se los agredeceré muchísimo!!!!!!!!

Te mando algo.

Dim Db As Database,Rs as Recordset,Strg As String

Set Db = OpenDatabase(C:\base.mdb")
Strg = "SELECT * FROM empleado WHERE legajo=96"
Set Rs= Db.OpenRecordset(Strg)

With Rs
.MoveFirst
Do While Not .EOF
.Edit
!Nombre=" ...... "
.Update
Loop
End Whit

Espero te ayude.
El Señor te bendiga.