bueno yo lo hacia como tu lo tienes pero a la hora de presentar informes por cristal me presenta uin error, ademas para buscar, y editar tambien presenta errores
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'abrir la base de datos
Public Sub OpenDB()
Dim strConect
strConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\ContF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=link"
Cn.Open strConect
RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
rsR.Open "Select * from Reporte", Cn, adOpenDynamic, adLockBatchOptimistic
End Sub
Sub SaveBD(valNew As Boolean)
'guardar un contacto
With frmEditAdd
If valNew = True Then
RS.AddNew
RS!Nom = .txtNom.Text & " " & .txtApl.Text
RS!Tel = .txtNum.Text
RS!movil = .txtMov.Text
RS!DirPic = DirImg
RS.Update
valNew = False
End If
End With
End Sub