Option Explicit

Public Sub GetData()

    Dim rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim strConn As String
    Dim sSQL As String
    Dim i As Long
    
    strConn = _
        "Provider=Microsoft.Access.OLEDB.10.0;" & _
        "Data Source=192.168.0.1;" & _
        "Initial Catalog=LKVITAI-DB-V1SQL;" & _
        "Data Provider=SQLOLEDB.1" & _
        "Persist Security Info=False;" & _
        "Uid=***;" & _
        "Pwd=******"
    sSQL = _
        "SELECT lk.dtDateTimeInsert, lk.Kvitas, lk.Verte, lk.Apmoketas, lk.Adresas " _
        & "FROM dbo.Uzsakymai AS u INNER JOIN MTTools.dbo.LKUZA AS lk ON " _
        & "u.UzsakymasID = lk.iOrderID"
        
    conn.Open strConn
    rs.Open sSQL, conn

    ActiveWorkbook.Sheets( 1 ).Cells( 2 ,  1 ).CopyFromRecordset rs
    
    Columns("C:C").Select: Selection.Style = "Currency"
    Range("A1").Value = "Apnulintas:"
    Range("B1").Value = "Kvito nr.:"
    Range("B1").Value = "Kvito Nr.:"
    Range("C1").Value = "Galutinë vertë:"
    Range("D1").Value = "Apmokëtas:"
    Range("E1").Value = "Adresas:"
    Columns("A:E").Select
    With Selection.Font
        .Name = "Arial"
        .Size =  12 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1:E1").Select: Selection.Font.Bold = True
    Columns("A:D").Select: Columns("A:E").EntireColumn.AutoFit
    Columns("E:E").ColumnWidth =  54 . 71 
    Columns("A:E").Select
        With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    rs.Close
    conn.Close
    Set rs = Nothing: Set conn = Nothing
    
End Sub

Sub auto_open()

    If MsgBox( _
        "Reikia prisijugti prie SQl serverio ir gauti duomenis." _
        & vbNewLine & "Padaryti tai dabar?", vbYesNo, "Klausimëlis") = vbYes Then
        GetData
    Else
        ThisWorkbook.Saved = True
        ActiveWorkbook.Close
    End If

End Sub

Sub auto_close()
    
    Sheets("Duomenys").Select
    Columns("A:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWorkbook.Save
    ThisWorkbook.Saved = True
    
End Sub

    Columns("A:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWorkbook.Save