VB6 X ACCESS 2010 - ALGUMAS DUVIDAS

Citação:

:
O segredo é utilizar o ADO com uma connection string apropriada para ACCDB.

   

    [ô]... módulo...
    Global BD As Database
    Global TabProd As Recordset



Sub Main()
      Dim Caminho as string

      Caminho = App.path & [Ô]\Controle.mdb[Ô]

      Set BD = DBEngine.Workspaces(0).OpenDatabase(Caminho, False, False, [Ô];PWD=!@#$[Ô])
      Set TabSerial = BD.OpenRecordset([Ô]Serial[Ô], dbOpenTable)

       [ô]EVITAR O ERRO DE ACESSO SIMULTÂNEO POR MAIS DE UMA APLICAÇÃO NA MESMA TABELA
       DBEngine.Idle (dbFreeLocks)

End Sub

    [ô]PROCEDURE DO BOTÃO [Ô]CMD_GRAVAR[Ô] :

    [ô]============================
    [ô]GRAVAR NA TABELA DE PRODUTOS
    [ô]============================
    BeginTrans
    TabProd.AddNew
    
        TabProd([Ô]CodigoProd[Ô]) = FU_Busca_Codigo
        TabProd([Ô]DescricaoProd[Ô]) = UCase(TxtDescricao.Text)
        TabProd([Ô]PrecoVendaProd[Ô]) = Format(MaskPrecoVenda.Text, [Ô]#,##0.00;- #,##0.00[Ô])
        TabProd([Ô]CustoProd[Ô]) = Format(MaskCustoUnit.Text, [Ô]#,##0.00;- #,##0.00[Ô])
    
    TabProd.Update
    CommitTrans

Function FU_Busca_Codigo() As Integer
    
    [ô] DECLARA VARIAVEL
    Dim XCOD As Long
    
    [ô]BUSCA O CODIGO MAXIMO => CODMAX é UMA VARIÁVEL
    SQL = [Ô]SELECT MAX(Produto.CodigoProd) AS CODMAX FROM Produto[Ô]
   
    Set TabProd = BD.OpenRecordset(SQL)
    
   If IsNull(TabProd!CODMAX) Then
      Exit Function
   End If
    
    XCOD = TabProd!CODMAX
   
    [ô]ABRE TABELA DE PRODUTOS PARA PESQUISAR
    Set TabProd = BD.OpenRecordset([Ô]Produto[Ô])
    
            [ô] MOVIMENTA PONTEIRO PARA O INICIO DA TABELA
            If TabProd.RecordCount <> [Ô]0[Ô] Then
                TabProd.MoveFirst
              Else
                Exit Function
            End If
   
    [ô]PROCURA O PROXIMO CODIGO DISPONIVEL
    TabProd.Index = [Ô]IndCodProd[Ô]
    For i = 1 To XCOD
    
        TabProd.Seek [Ô]=[Ô], i
        
        If TabProd.NoMatch Then  [ô]SE NÃO ENCONTROU...
            Busca_Codigo = i
            Exit Function
        End If
    
    Next i
   
    Busca_Codigo = XCOD + 1
   
End Function