module1.bas

This project is to design the automated system for the inventory of Al-Ahmad Cotton and Oil Mills si

Attribute VB_Name = "Module1"
Option Explicit
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public rs3 As New ADODB.Recordset
Public rs4 As New ADODB.Recordset
Public rs5 As New ADODB.Recordset
Public rs6 As New ADODB.Recordset
Public rs7 As New ADODB.Recordset
'Public rs5 As New Recordset
Public flag As Boolean
Public cnn As New ADODB.Connection
Public strConnect As String
Public count As Integer
Public VUserId As String
Public Login As Boolean
Public VUsertype As String


Public Sub main()
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hussain"
MDIForm1.Show
MDIForm1.Enabled = True
'****************
'If rs.State = adStateOpen Then rs.Close
'rs.Open "Login", cnn, adOpenStatic, adLockReadOnly, adCmdTable
'If rs.RecordCount = 0 Then
'newuser.Show
'MDIForm1.Show
'frmLogin.Show
'Else
'******************
'frmLogin1.Show vbModal
'End If
End Sub