pessoa ta dando erro neste código e naum sei o que fazer algué pra dar um Help

Dim id_teste As Integer
'Dim valor As Integer

Me.btn_editar.Enabled = False
Me.btn_excluir.Enabled = False


    'Cria variável que armazena os comandos SQL
    Dim ComandoSQL As String
    
    'Armazena na variável o comando que fará a consulta SQL no BD Access
    ComandoSQL = "select * from tabela_clientes"
       
    'Chama a rotina que faz a conexão com o BD
    Call Conecta
    
    'Atribui a variável objeto de BD a execução dos comandos SQL
    Set consulta = banco.OpenRecordset(ComandoSQL)
    
    While Not consulta.EOF
        id = consulta(0)
        consulta.MoveNext
     Wend
     
   Call Desconecta

   Me.txt_codigo = id + 1
   
   Me.txt_registro = id
   
   Call testa_id
   
   Exit Sub