Set oRec87 = New ADODB.Recordset
    oRec87.Open "SELECT * FROM ger087 WHERE codigo = '" & txtCodigo.Text & "'", con, adOpenStatic, adLockReadOnly

    Set Rec07 = New ADODB.Recordset
    Rec07.Open "SELECT * FROM rec07 WHERE banco = '0748'", con, adOpenStatic, adLockReadOnly

    strSQL = ""
    strSQL = "SELECT " & _
               " MAX(fatura) AS UltimaFatura " & _
             "FROM " & _
             "   ger016 " & _
             "WHERE " & _
             "   MID(fatura, 1, 4) = '1865'; "

    Set Rec16 = New ADODB.Recordset
    Rec16.Open (strSQL), con, adOpenStatic, adLockReadOnly

    vCodFatura = "18650000001"

    If Val(NaoNull(Rec16!ultimafatura)) <> 0 Then

        vCodFatura = StrZero(Val(NaoNull(Rec16!ultimafatura)) + 1, 11)

    Else

        Set Rec16 = Arquivo.OpenRecordset("select MAX(fatura) as ultimafatura from ger016")
        vCodFatura = StrZero(Val(NaoNull(Rec16!ultimafatura)) + 1, 11)

    End If

        'pega o codigo do cliente de visada na cadcli parainserir na ger016 e setar como removido = false (para usar o numero de fatura)
        Set oRecCli = New ADODB.Recordset
        oRecCli.Open "SELECT * FROM cadcli WHERE codigo = '999999'", ConMysql, adOpenStatic, adLockReadOnly

        'insere os dados na tabela ger016 para pegar o numero de fatura e marca como removido
        strSQL = ""
        strSQL = "INSERT INTO ger016" & _
                 "(" & _
                 "credor, " & _
                 "nome, " & _
                 "fatura, " & _
                 "descricao, " & _
                 "emissao, " & _
                 "data, " & _
                 "valor, " & _
                 "banco , " & _
                 "codagencia , " & _
                 "digagencia , " & _
                 "codconvenio , " & _
                 "carteira , " & _
                 "cidade , " & _
                 "removido , " & _
                 "razao , " & _
                 "cgc , " & _
                 "ie , "

        strSQL = strSQL & " banco , " & _
                "bairro , " & _
                "endereco , " & _
                "cep , " & _
                "estado , " & _
                "codigo , " & _
                "telefone1 , " & _
                "ua , " & _
                 ")" & _
                 "VALUES" & _
                 "(" & _
                 "'" & txtCodigo.Text & "', " & _
                 "'" & oRecCli!Nome & "', " & _
                 "'" & vCodFatura & "', " & _
                 "'" & dbDate(0) & "', " & _
                 "'" & dbDate(0) & "', " & _
                 "'" & txtValorVisita(3).Text & "', " & _
                 "'" & Rec07!Banco & "', " & _
                 "'" & Rec07!codagencia & "', " & _
                 "'" & Rec07!digagencia & "', " & _
                 "'" & Rec07!codconvenio & "', " & _
                 "'" & Rec07!cardeira & "', " & _
                 "'" & oRec87!Cidade & "', " & _
                 "False, "

        strSQL = strSQL & " orec87!nome , " & _
                strSQL = strSQL & " orec87!cgc , " & _
                "'" & oRec87!ie & "', " & _
                "'" & oRec87!bairro & "', " & _
                "'" & oRec87!endereco & "', " & _
                "'" & oRec87!Cep & "', " & _
                "'" & oRec87!estado & "', " & _
                "'" & oRec87!Codigo & "', " & _
                "'" & oRec87!telefone & "', " & _
                "'" & Rec07!ua & "', " & _
                 ")"