'----------------------------------------------------
'----------------------------------------------------
Public db As Database
'----------------------
Public rsUsers As Recordset
Public rsClient As Recordset
Public rsClientTests As Recordset
Public rsPricelist As Recordset
Public rsDisc As Recordset
Public rsOrders As Recordset
Public rsPaid As Recordset
Public rsProfits As Recordset
Public rsSafe As Recordset
'----------------------
Public rsBara As Recordset
Public rsCBC As Recordset
Public rsChem As Recordset
Public rsCult As Recordset
Public rsESR As Recordset
Public rsFemHor As Recordset
Public rsHeam As Recordset
Public rsHore As Recordset
Public rsImm As Recordset
Public rsKF As Recordset
Public rsLF As Recordset
Public rsLipid As Recordset
Public rsMalHor As Recordset
Public rsMicro As Recordset
Public rsPath As Recordset
Public rsPCR As Recordset
Public rsPreg As Recordset
Public rsPTT As Recordset
Public rsSem As Recordset
Public rsSero As Recordset
Public rsStool As Recordset
Public rsSugar As Recordset
Public rsTumor As Recordset
Public rsUrine As Recordset
Public rsVirology As Recordset
Public rsWidal As Recordset
Public rsThyroid As Recordset
'--------------------------
Public dbADODB As New adodb.Connection
'--------------------------
Public rsUsers2 As New adodb.Recordset
Public rsClient2 As New adodb.Recordset
Public rsClientTests2 As New adodb.Recordset
Public rsPricelist2 As New adodb.Recordset
Public rsDisc2 As New adodb.Recordset
Public rsOrders2 As New adodb.Recordset
Public rsPaid2 As New adodb.Recordset
Public rsProfits2 As New adodb.Recordset
Public rsSafe2 As New adodb.Recordset
'--------------------------
Public rsBara2 As New adodb.Recordset
Public rsCBC2 As New adodb.Recordset
Public rsChem2 As New adodb.Recordset
Public rsCult2 As New adodb.Recordset
Public rsESR2 As New adodb.Recordset
Public rsFemHor2 As New adodb.Recordset
Public rsHeam2 As New adodb.Recordset
Public rsHore2 As New adodb.Recordset
Public rsImm2 As New adodb.Recordset
Public rsKF2 As New adodb.Recordset
Public rsLF2 As New adodb.Recordset
Public rsLipid2 As New adodb.Recordset
Public rsMalHor2 As New adodb.Recordset
Public rsMicro2 As New adodb.Recordset
Public rsPath2 As New adodb.Recordset
Public rsPCR2 As New adodb.Recordset
Public rsPreg2 As New adodb.Recordset
Public rsPTT2 As New adodb.Recordset
Public rsSem2 As New adodb.Recordset
Public rsSero2 As New adodb.Recordset
Public rsStool2 As New adodb.Recordset
Public rsSugar2 As New adodb.Recordset
Public rsTumor2 As New adodb.Recordset
Public rsUrine2 As New adodb.Recordset
Public rsVirology2 As New adodb.Recordset
Public rsWidal2 As New adodb.Recordset
Public rsThyroid2 As New adodb.Recordset
'-------------------------------
Public SQl As String
Public sFile As String
Public objWord As Word.Application
Public objDocContent As Word.Range
'----------------------------------------------------
Public Sub Connect_All_Rs()
On Error Resume Next
Set db = OpenDatabase("data.mdb")
Set rsUsers = db.OpenRecordset("users")
Set rsClient = db.OpenRecordset("client")
Set rsClientTests = db.OpenRecordset("clientTests")
Set rsPricelist = db.OpenRecordset("pricelist")
Set rsDisc = db.OpenRecordset("Disc")
Set rsOrders = db.OpenRecordset("Orders")
Set rsPaid = db.OpenRecordset("paid")
Set rsProfits = db.OpenRecordset("profits")
Set rsSafe = db.OpenRecordset("Safe")
'=========================
Set rsBara = db.OpenRecordset("Barasitology")
Set rsCBC = db.OpenRecordset("CBC")
Set rsChem = db.OpenRecordset("Chemistry")
Set rsCult = db.OpenRecordset("Cultures")
Set rsESR = db.OpenRecordset("ESR")
Set rsFemHor = db.OpenRecordset("FemaleHor")
Set rsHeam = db.OpenRecordset("Heamatology")
Set rsHore = db.OpenRecordset("Horemones")
Set rsImm = db.OpenRecordset("Immunology")
Set rsKF = db.OpenRecordset("KF")
Set rsLF = db.OpenRecordset("LF")
Set rsLipid = db.OpenRecordset("Lipid")
Set rsMalHor = db.OpenRecordset("MaleHor")
Set rsMicro = db.OpenRecordset("Microbiology")
Set rsPath = db.OpenRecordset("Pathology")
Set rsPCR = db.OpenRecordset("PCR")
Set rsPreg = db.OpenRecordset("Pregnant")
Set rsPTT = db.OpenRecordset("PTT")
Set rsSem = db.OpenRecordset("Semen")
Set rsSero = db.OpenRecordset("Serology")
Set rsStool = db.OpenRecordset("stool")
Set rsSugar = db.OpenRecordset("Suger")
Set rsTumor = db.OpenRecordset("Tumor")
Set rsUrine = db.OpenRecordset("urine")
Set rsVirology = db.OpenRecordset("Virology")
Set rsWidal = db.OpenRecordset("Widal")
Set rsThyroid = db.OpenRecordset("Thyroid")
'=========================
'=========================
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\data.mdb" & ";"
'=========================
'=========================
'=========================
rsBara2.Open "select * from Barasitology ", dbADODB, adOpenKeyset, adLockOptimistic
rsCBC2.Open "select * from CBC ", dbADODB, adOpenKeyset, adLockOptimistic
rsChem2.Open "select * from Chemistry ", dbADODB, adOpenKeyset, adLockOptimistic
rsCult2.Open "select * from Cultures ", dbADODB, adOpenKeyset, adLockOptimistic
rsESR2.Open "select * from ESR ", dbADODB, adOpenKeyset, adLockOptimistic
rsFemHor2.Open "select * from FemaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsHeam2.Open "select * from Heamatology ", dbADODB, adOpenKeyset, adLockOptimistic
rsHore2.Open "select * from Horemones ", dbADODB, adOpenKeyset, adLockOptimistic
rsImm2.Open "select * from Immunology ", dbADODB, adOpenKeyset, adLockOptimistic
rsKF2.Open "select * from KF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLF2.Open "select * from LF ", dbADODB, adOpenKeyset, adLockOptimistic
rsLipid2.Open "select * from Lipid ", dbADODB, adOpenKeyset, adLockOptimistic
rsMalHor2.Open "select * from MaleHor ", dbADODB, adOpenKeyset, adLockOptimistic
rsMicro2.Open "select * from Microbiology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPath2.Open "select * from Pathology ", dbADODB, adOpenKeyset, adLockOptimistic
rsPCR2.Open "select * from PCR ", dbADODB, adOpenKeyset, adLockOptimistic
rsPreg2.Open "select * from Pregnant ", dbADODB, adOpenKeyset, adLockOptimistic
rsPTT2.Open "select * from PTT ", dbADODB, adOpenKeyset, adLockOptimistic
rsSem2.Open "select * from Semen ", dbADODB, adOpenKeyset, adLockOptimistic
rsSero2.Open "select * from Serology ", dbADODB, adOpenKeyset, adLockOptimistic
rsStool2.Open "select * from stool ", dbADODB, adOpenKeyset, adLockOptimistic
rsSugar2.Open "select * from Suger ", dbADODB, adOpenKeyset, adLockOptimistic
rsTumor2.Open "select * from Tumor ", dbADODB, adOpenKeyset, adLockOptimistic
rsUrine2.Open "select * from urine ", dbADODB, adOpenKeyset, adLockOptimistic
rsVirology2.Open "select * from Virology ", dbADODB, adOpenKeyset, adLockOptimistic
rsWidal2.Open "select * from Widal ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'=========================
'=========================
rsUsers2.Open "select * from users ", dbADODB, adOpenKeyset, adLockOptimistic
rsClient2.Open "select * from client ", dbADODB, adOpenKeyset, adLockOptimistic
rsClientTests2.Open "select * from clientTests ", dbADODB, adOpenKeyset, adLockOptimistic
rsPricelist2.Open "select * from pricelist ", dbADODB, adOpenKeyset, adLockOptimistic
rsDisc2.Open "select * from Disc ", dbADODB, adOpenKeyset, adLockOptimistic
rsOrders2.Open "select * from Orders ", dbADODB, adOpenKeyset, adLockOptimistic
rsPaid2.Open "select * from paid ", dbADODB, adOpenKeyset, adLockOptimistic
rsProfits2.Open "select * from profits ", dbADODB, adOpenKeyset, adLockOptimistic
rsSafe2.Open "select * from Safe ", dbADODB, adOpenKeyset, adLockOptimistic
rsThyroid2.Open "select * from Thyroid ", dbADODB, adOpenKeyset, adLockOptimistic
'=========================
'=========================
dbADODB.Provider = "Microsoft.JET.OLEDB.4.0;"
dbADODB.Open App.Path & "\data.mdb"
'=========================
'=========================
'=========================
rsBara2.Open "[Barasitology]", dbADODB, adOpenStatic, adLockReadOnly
rsCBC2.Open "[CBC]", dbADODB, adOpenStatic, adLockReadOnly
rsChem2.Open "[Chemistry]", dbADODB, adOpenStatic, adLockReadOnly
rsCult2.Open "[Cultures]", dbADODB, adOpenStatic, adLockReadOnly
rsESR2.Open "[ESR]", dbADODB, adOpenStatic, adLockReadOnly
rsFemHor2.Open "[FemaleHor]", dbADODB, adOpenStatic, adLockReadOnly
rsHeam2.Open "[Heamatology]", dbADODB, adOpenStatic, adLockReadOnly
rsHore2.Open "[Horemones]", dbADODB, adOpenStatic, adLockReadOnly
rsImm2.Open "[Immunology]", dbADODB, adOpenStatic, adLockReadOnly
rsKF2.Open "[KF]", dbADODB, adOpenStatic, adLockReadOnly
rsLF2.Open "[LF]", dbADODB, adOpenStatic, adLockReadOnly
rsLipid2.Open "[Lipid]", dbADODB, adOpenStatic, adLockReadOnly
rsMalHor2.Open "[MaleHor]", dbADODB, adOpenStatic, adLockReadOnly
rsMicro2.Open "[Microbiology]", dbADODB, adOpenStatic, adLockReadOnly
rsPath2.Open "[Pathology]", dbADODB, adOpenStatic, adLockReadOnly
rsPCR2.Open "[PCR]", dbADODB, adOpenStatic, adLockReadOnly
rsPreg2.Open "[Pregnant]", dbADODB, adOpenStatic, adLockReadOnly
rsPTT2.Open "[PTT]", dbADODB, adOpenStatic, adLockReadOnly
rsSem2.Open "[Semen]", dbADODB, adOpenStatic, adLockReadOnly
rsSero2.Open "[Serology]", dbADODB, adOpenStatic, adLockReadOnly
rsStool2.Open "[stool]", dbADODB, adOpenStatic, adLockReadOnly
rsSugar2.Open "[Suger]", dbADODB, adOpenStatic, adLockReadOnly
rsTumor2.Open "[Tumor]", dbADODB, adOpenStatic, adLockReadOnly
rsUrine2.Open "[urine]", dbADODB, adOpenStatic, adLockReadOnly
rsVirology2.Open "[Virology]", dbADODB, adOpenStatic, adLockReadOnly
rsWidal2.Open "[Widal]", dbADODB, adOpenStatic, adLockReadOnly
rsThyroid2.Open "[Thyroid]", dbADODB, adOpenStatic, adLockReadOnly
'=========================
'=========================
rsUsers2.Open "[users]", dbADODB, adOpenStatic, adLockReadOnly
rsClient2.Open "[client]", dbADODB, adOpenStatic, adLockReadOnly
rsClientTests2.Open "[clientTests]", dbADODB, adOpenStatic, adLockReadOnly
rsPricelist2.Open "[pricelist]", dbADODB, adOpenStatic, adLockReadOnly
rsDisc2.Open "[Disc]", dbADODB, adOpenStatic, adLockReadOnly
rsOrders2.Open "[Orders]", dbADODB, adOpenStatic, adLockReadOnly
rsPaid2.Open "[paid]", dbADODB, adOpenStatic, adLockReadOnly
rsProfits2.Open "[profits]", dbADODB, adOpenStatic, adLockReadOnly
rsSafe2.Open "[Safe]", dbADODB, adOpenStatic, adLockReadOnly
'=========================
'=========================
End Sub