[Resolvido] VB6 não responde sintaxe sql do access

Boa tarde!!!

Estou criando um especie de numerador para documentos usando BD access, a primeira ideia é que quando o usuario abrir o tipo de docto que ele deseja usar apareça uma msg informando o numero do documento que irá utilizar junto com yesno, ou seja o ultimo numero salvo + 1, desta forma se por acaso ele mudar de ideia e nao usar mais nào houve o insert.

no BD estou usndo id = autonumeração, a sintaxe que vou apresentar funciona na consulta do access e mysql, mas quando chamo pelo vb da erro, andei pesquisando dizem que este erro e comum entre VB X access e não achei resposta.

Segue exemplo:

[/Private Sub Form_Load()

 sql = "select max(despacho_id)from despachos" 'comando sql

 If tabela.State = 1 Then tabela.Close
 tabela.Open sql, banco
 lblid = tabela!despacho_id + 1 'Atribui o conteudo de lblid e incrementa de 1,
 'antes de inserir na tabela
 tabela.Close

 lblano = Year(Date)

Diz o erro que nao pode ser encotrado a coleção

desde já obrigado