Visual Basic 6 - Rutinas - Coneccion

'Base de datos
Public Wks As DAO.Workspace
Dim db As DAO.Database
Public Rs As DAO.Recordset
Public sql As String







Public Function Conn(sql As String)
  Set Wks = DBEngine.Workspaces(0)
  Set db = Wks.OpenDatabase(Principal.UbicBD & "\BaseDatos.mdb", False, False, ";User=Admin;Pwd=xxxx")
  Set Rs = db.OpenRecordset(sql)
End Function


Public Function ConnSnap(sql As String)
  Set Wks = DBEngine.Workspaces(0)
  Set db = Wks.OpenDatabase(Principal.UbicBD & "\BaseDatos.mdb", False, False, ";User=Admin;Pwd=xxxx")
  Set Rs = db.OpenRecordset(sql, dbOpenSnapshot)
End Function


Public Function ConnFin()
  Rs.Close
  Set Rs = Nothing
  db.Close
  Set db = Nothing
  Wks.Close
  Set Wks = Nothing
End Function