Public Sub isGastos()
    
    
    Worksheets("Inserir despesas").Activate
    
    GerarNumerosAleatoriosSemRepeticao
    
    n_Controle = Cells(8, 2)
    Valor = Cells(12, 7)
    d_Gastos = Cells(15, 7)
    Observacoes = Cells(20, 5)
                      
    Dim lSQL As String
                      
    lsConectar
    lSQL = "Insert into Gastos VALUES ('" & n_Controle & "','" & Valor & "','" & d_Gasto & "','" & Observacoes & "');"
    
    gConexao.Execute lSQL
    lsDesconectar
 
End Sub