Tente
Dim cnn As New adodb.Connection
Dim rst as recordset
... faz a conexao....
rst.Open "Select max(cod_seq) as ultimo From CFOP where cod_cfop = 5.915 ", cnn, adOpenStatic
proximo_codigo = rst.fields![ultimo] + 1
Não testei o codigo. Qualquer coisa post.