Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset, XL As Object, Wb As Object, Sh As Object, L As Long, c As Long
 
    rs.Open "select * from sorgu1", CurrentProject.Connection, adOpenStatic, adLockReadOnly
 
    If rs.RecordCount > 0 Then
 
        Set XL = CreateObject("Excel.Application")
        Set Wb = XL.workbooks.Add
        Set Sh = Wb.worksheets(1)
        Sh.Name = "Sorgu1"
 
        XL.Visible = True
 
        For L = 0 To rs.Fields.Count - 1
            Sh.cells(1, L + 1) = rs(L).Name
            Sh.cells(1, L + 1).Font.Bold = True
        Next
 
        c = 1
        Do While Not rs.EOF
            c = c + 1
            For L = 0 To rs.Fields.Count - 1
                Sh.cells(c, L + 1) = rs(L).Value
            Next
 
            If Sh.cells(c, "a").Value < 5 Then Sh.cells(c, "a").interior.Color = vbGreen
            If Sh.cells(c, "a").Value > 10 Then Sh.cells(c, "a").interior.Color = vbRed
            If Sh.cells(c, "b").Value < 20 Then Sh.cells(c, "b").interior.Color = vbGreen
            If Sh.cells(c, "b").Value > 55 Then Sh.cells(c, "b").interior.Color = vbRed
 
            rs.MoveNext
        Loop
 
    End If
 
    rs.Close
 
    Set rs = Nothing
End Sub