OleDb.OleDbCommand("Select *, (([AddressDisplay])& ',' &([City]) & ', ' &([State])&',' &([ZipCode])) AS Address, IIf(IsNull([BathsQuarter]),0,[BathsQuarter]*.25)+ IIF(IsNull([Bathshalf]),0,[Bathshalf]*.5)+ IIf(IsNull([Bathsthreequarter]),0,[Bathsthreequarter]*.75)+ IIf(IsNull([BathsFull]),[BathsTotal],[BathsFull]) AS BATH From " & Me.OpenFileDialog1.SafeFileName & " Where ListStatus <> 'Closed Sale'", con)