Sub Upl()

    Application.ScreenUpdating = False
''this macro uploads table with data from DB
    Sheets("LL").Select
    Worksheets("LL").Columns.ClearFormats
    Worksheets("LL").Columns.ClearContents
    Dim LLpass As String
    Dim login As String
    Dim dat As Variant
    Dim default As String
    default = Date
    default = Format(Date, "dd-mmm-yy")
    LLpass = InputBox("Please provide LL password")
    If MFpass = "False" Or LLpass = "" Then
        MsgBox "Wrong password", vbCritical
    Sheets("Main Page").Select
            End
    End If
    dat = InputBox("Please provide operation date in the same format", , default)
    If dat = "" Then
        MsgBox "Date not specified", vbCritical
    Sheets("Main Page").Select
        End
    End If
    login = UCase(Environ("USERNAME"))
'creates connection with Oracle server
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=MSDAORA.1;Data Source=MYHOSTNAME;Password=" & LLpass & ";User ID=" & login & ""
'identifies where to paste
    sSql = "select a, b, c, d, from e where b <> 0 and c = ('" & dat & "') and d = '20' and a like '_____%'"
    Set rs = GetRs(sSql, cn)
    [a2].CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    End Sub
    Function GetRs(sSql, cn)
    Set GetRs = CreateObject("ADODB.Recordset")
    GetRs.Open sSql, cn
    Application.ScreenUpdating = True
    End Function