Public cn As ADODB.Connection                ' Glavna konekcija za cel program

Public DA As Variant                         ' Zamena za TRUE
Public NE As Variant                         ' Zamena za FALSE

Public BarCodePrefix As Integer                ' Prefiks na barkod citacot
'Global Const BarCodePrefix = "2"              ' Konstanta STX prefiks na bar kod citacot
Public SearchFormaKasa As Boolean          ' Se koristi forma za prebaruvajne vo kasata
Public SearchGridKasa As Boolean             ' Moze da se prebaruva vo gridot na kasata


Sub Main()
On Local Error GoTo Error_Main:
Set cn = New ADODB.Connection
     

    ' My SQL server

     
     cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=localhost" & _
                           ";port=3306; database=BazaTest" & _
                           "; user=root" & _
                           "; password=admin" & "; option=3;"
      DA = 1
      NE = 0

   cn.Open
If cn.State = adStateOpen Then
   frmIzvestai.Show
End If
 
Main_Exit:
   Exit Sub

Error_Main:

If Err <> 0 And Err <> -2147217843 And Err <> -2147467259 Then MsgBox Err & "  -->>>  " & Error(Err)

If Err = -2147217843 Then
    Call MsgBox("  !  #
  !  " ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
    frmParametri.Show
    Resume Main_Exit:
End If

If Err = -2147467259 Then
    Call MsgBox("  !  #
  "  ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "")
    frmParametri.Show
    Resume Main_Exit:
End If

   
End Sub