'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