Macro update

[#1]

Bom dia, tenho uma macro que faz update no banco, consegui fazer o update selecionando 1 dia, agora o que eu necessito é, selecionar por período, exemplo do dia 1 ate o dia 7, ou o mes inteiro. Como que eu posso proceder para criar essa regra na macro. Tambem preciso criar um IF, para quando o usuário selecionar S grava se estiver com N não faz nenhuma alteração, quando eu deixo o IF no código ele não executa quando eu removo ele faz o update no banco. Espero que possam me ajudar..

Function GetAgentConnection

    Dim oConection

    Dim SLXServerName

    Dim SLXDataBaseName

    Dim SLXUserPassword

    Dim SLXUserName

    Dim sConnectionString

   sConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;User ID=root;Data Source=GHAN_BI;Extended Properties=DSN=GHAN_BI;UID=root;Initial Catalog=ghan_bi] (XPassword is JHLDSJVMYbbMCbEHRRMGDAC)"

    Set oConection = CreateObject ("ADODB.Connection")

    oConection.ConnectionString = sConnectionString

    oConection.Open

    Set GetAgentConnection = oConection

End Function

'Salva na tabela Vendas Diario

Sub QV2SQL

  SET Conexao = GetAgentConnection()

  dim uSQL

  dim RegAfectados

  dim importe

  RegAfectados = 0

  set val1=ActiveDocument.Fields("DATAFORMATOBD").GetSelectedValues

  set val2=ActiveDocument.Fields("SELECIONA").GetSelectedValues

  for i=0 to val1.Count-1

   Conexao.Execute "UPDATE  bi_agencia_stur_vendas_diario SET conferido='"+val2.Item(i).Text+"' WHERE data_emissao = '"+val1.Item(i).Text+"'"

  next

  Msgbox("Registros atualizados com sucesso!")

End Sub