A FUNÇÃO ABAIXO ESTÁ EM UM MÓDULO MAIN QUE É CHAMADO NA EXECUÇÃO DO PROGRAMA

Public db As Database

Public Cadastro As Recordset

‘Verifica instância

If App.PrevInstance Then

Beep

                        MsgBox App.EXEName + " já está aberto.", vbExclamation, "SysEf"

End

            End If

'Verifica se o arquivo INI existe

            If Existe(App.Path + "" & "config.ini") Then ''("c:siccconfig.ini")

                        'Variavel (string) que contem o caminho do banco de dados

                        dirdb = PegaStrDoIni("Dados", "Diretorio", App.Path + "" & "config.ini")

                         'Variavel (string) que contem o caminho do backup

                        Dir_Backup = PegaStrDoIni("backup", "caminho", App.Path + "" & "config.ini")

                         avisar_backup = PegaStrDoIni("seguranca", "avisar", App.Path + "" & "config.ini")

                        ja_rodou = PegaStrDoIni("rodar", "rodou", App.Path + "" & "config.ini")        

                        If ja_rodou = "nao" Then

                                   Beep

                                    MsgBox "Não esqueça de executar o Módulo Configurador do Sistema", vbExclamation, "Atenção"

                                   Exit Sub

                        End If

'Verifica se o banco de dados existe

                        If Existe(dirdb & "bdEfetivo.mdb") Then

                                    'Abre o banco de dados

Set db = OpenDatabase(dirdb & "bdCadastro.mdb")

                                    frmIni.Show

                        Else

                                   Beep

                                   MsgBox "Caminho do Banco de Dados Inválido.", vbCritical, "SysEf"

                                   MsgBox "Contato _____________", vbInformation, "Mensagem"

                        End If

Else

                                   Beep

                                   MsgBox "Arquivo INI não encontrado.", vbCritical, "SysEf"

                                   Exit Sub

End If

erro:

            Select Case Err

                Case 0

                    Exit Sub

                Case 3024

                MsgBox "Caminho do Banco Errado, favor acionar o Suporte Técnico.", vbCritical, "Atenção"

                    MsgBox "Contato _______________", vbInformation, "Mensagem"

                    MsgBox "Ocorreu o erro: " & Err, vbCritical, "Erro..."

        End Select

UMA VEZ LOCALIZADO O BD, ABRE A TELA PARA O USUÁRIO COLOCAR SUA SENHA ENTÃO CHAMA A FUNÇÃO PARA VERIFICAR A MESMA

Call verifica_senha

UMA VEZ ACEITA A SENHA, VERIFICO A SITUAÇÃO DO BANCO DE DADOS E ENTÃO COLOCO O Nº DEARQUIVOS EXISTENTES, É ONDE NÃO CONFERE COM O QUE TEM NO BD.

'ABRE A TABELA

Set Cadastro = db.OpenRecordset("tblCadastro", dbOpenTable)

    Cadastro.Index = "Codigo"

    dbAdo.CursorLocation = adUseClient

    dbAdo.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & (dirdb & "bdCadastro.mdb")

If Cadastro.EOF = False And Cadastro.BOF = False Then

    MDI_principal.StatusBar1.Panels(1).Text = "TOTAL DE PESSOAS CADASTRADAS: " & Cadastro.RecordCount

End If