CONEXÃO BASE DADOS .INI

  Imports FirebirdSql.Data.FirebirdClient
Imports System.IO.Compression

Module modBanco                                              

    Public strConexao As FbConnection = New FbConnection([Ô]User=SYSDBA;[Ô] &
            [Ô]Password=masterkey;[Ô] &
            [Ô]Database =[Ô] & [Ô]C:\ISA\BDADOS.FDB;[Ô] &                                                         
            [Ô]Port=3050;[Ô] &
            [Ô]Dialect=3;[Ô] &
            [Ô]Charset=NONE;[Ô] &     [ô]
            [Ô]Connection lifetime=0;[Ô] &
            [Ô]Connection timeout=15;[Ô] &
            [Ô]Pooling=True;[Ô] &
            [Ô]Packet Size=8192;[Ô] &
            [Ô]Server Type=0[Ô])

    Public Sub ConectarBD()

        Try
            If strConexao.State = ConnectionState.Closed Then
                Cursor.Current = Cursors.WaitCursor
                strConexao.Open()
                Cursor.Current = Cursors.Default
            End If
        Catch ex As Exception
            MsgBox([Ô]O programa não conseguiu abrir a base de dados devido ao seguinte erro:[Ô] & Chr(13) & Chr(13) & [Ô][ô][ô][Ô] & ex.Message.ToUpper & [Ô][ô][ô].[Ô] & Chr(13) & Chr(13) & [Ô]Entre em contato com o suporte informando o código de erro [ô][ô][Ô] & ex.HResult & [Ô][ô][ô]. O sistema será finalizado![Ô], MsgBoxStyle.Exclamation, [Ô]Erro [Ô] & ex.HResult)
        End Try

    End Sub

End Module