lasi.bas

This file came from Planet-Source-Code.com...the home millions of lines of source code You can view

Attribute VB_Name = "Lasi"
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"3CBB305B014E"
'##ModelId=3CBB305B015A
Public con As New ADODB.Connection

'##ModelId=3CBB305B015B
Public str_choice_1 As String
'##ModelId=3CBB305B0162
Public str_search_number As String

'##ModelId=3CBB305B0165
Public rs1 As ADODB.Recordset
'##ModelId=3CBB305B016E
Public rs As ADODB.Recordset
'##ModelId=3CBB305B0171
Public rscat As ADODB.Recordset
'##ModelId=3CBB305B0178
Public rsdep As ADODB.Recordset
'##ModelId=3CBB305B017B
Public rsDocs As New ADODB.Recordset

'##ModelId=3CBB305B0182
Public rsadd As ADODB.Recordset
'##ModelId=3CBB305B0185
Public rsmod As ADODB.Recordset
'##ModelId=3CBB305B018C
Public rsdel As ADODB.Recordset


'##ModelId=3CBB305B018D
'Sub main()
'Dim rs As New ADODB.Recordset
'con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pay\Pay.mdb"
'frm_employee.Show

'End Sub