Enlazar BD

[xplux]

Hola, tengo una aplicación que me hace las consultas de una base de datos Acces, la conexión está hecha con data pero ahora he agregado los botones y las cajas de texto para que pueda hacer altas, bajar y modificaciones, pero no se como hacer eso.

Aquí les dejo el programa para que le hechéis un vistazo

http://www.guzmi.es/gestionBD.zip

También dejo el código aquí pero hechar un vistazo al programa k una imagen vale mas que mil palabras.

Codigo:

Private Sub Command1_Click()
Dim sql As String
Dim db As Database
Set db = OpenDatabase(App.Path & "empleados.mdb")
sql = "select * from empleados where "
If Combo3.Text = "" Then
sql = sql & " cstr(" & Combo1.List(Combo1.ListIndex) & ")" & Combo2.List(Combo2.ListIndex) & "'" & Text1.Text & "'"
Else
sql = sql & " cstr(" & Combo1.List(Combo1.ListIndex) & ")" & Combo2.List(Combo2.ListIndex) & "'" & Text1.Text & "' " & _
Combo3.Text & " cstr(" & Combo4.Text & ")" & Combo5.Text & "'" & Text2.Text & "'"
End If

Data1.RecordSource = sql
Data1.Refresh

End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "empleados.mdb"
Combo1.Clear
Combo1.AddItem "codigo_empleados"
Combo1.AddItem "nombre"
Combo2.Clear
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "="
Combo2.AddItem "=>"
Combo2.AddItem "=<"
Combo3.Clear
Combo3.AddItem "and"
Combo3.AddItem "or"
Combo4.Clear
Combo4.AddItem "codigo_empleados"
Combo4.AddItem "nombre"
Combo5.Clear
Combo5.AddItem ">"
Combo5.AddItem "<"
Combo5.AddItem "="
Combo5.AddItem "=>"
Combo5.AddItem "=<"

End Sub