Function KonSQL() As Boolean
    Dim Kon As ADODB.Connection
    Dim KonStr As String

On Error Resume Next
    KonStr = "Provider=SQLOLEDB;Data Source=ImeServeraILIIP;" & _
                  "Initial Catalog=IMeBaze;" & _
                  "Integrated Security=SSPI;"
    Set Kon = New ADODB.Connection
    Kon.Open KonStr
    If Err.Number <> 0 Then
    Err.Clear
    On Error GoTo 0
    KonSQL = False
    Else
    KonSQL = True
    End If
End Function