Dim xlo As Microsoft.Office.Interop.Excel.Application
        Dim fso As Object
        Dim conn As New FbConnection
        Dim command As New FbCommand
        Dim csb As FbConnectionStringBuilder
        Dim sql As String
        Dim blah As Object
        Dim i As Integer
        Dim ds As FbDataReader
        xlo = New Excel.Application
        fso = CreateObject("Scripting.FileSystemObject")
        book = xlo.Workbooks.Add()
        csb = New FbConnectionStringBuilder
        csb.UserID = "SYSDBA"
        csb.Password = "masterkey"
        csb.Database = "D:\xx\yyy\zzzz.fdb"
        csb.ServerType = 0
        conn = New FbConnection(csb.ToString())
        sql = "SELECT CC.CHK FROM CHECK_CONTENTS AS CC WHERE CC.POSSHIFT = 49 AND CC.ISSERVCE = 0"
        conn.Open()
        command.Connection = conn
        command.CommandText = sql
        ds = command.ExecuteReader()
        i = 1
        While ds.Read()
            book.Activesheet.Range("A" & i).Value = ds("CC.CHK")
            i += 1
        End While
        conn.Close()

ds = command.ExecuteReader()

 sql = "SELECT CHK FROM CHECK_CONTENTS WHERE POSSHIFT = 49"

        sql = "SELECT CC.CHK FROM CHECK_CONTENTS AS CC WHERE POSSHIFT = 49"
        conn.Open()
        command.Connection = conn
        command.CommandText = sql
        ds = command.ExecuteReader()
        i = 1
        While ds.Read()
            blah.Activesheet.Range("A" & i).Value = ds("CHK")
            i += 1
        End While