Quick test professional 11

'Fetch the Data from Excel using ADODB class 

Set MyObj = createobject("adodb.connection")


MyObj.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=C:\Status.xls;Readonly=True"

Set MyDataObj = createobject("adodb.recordset")

MyDataObj.Open "select count(*) from [All_Mobile_Link$] where Status='Fail' ",MyObj

msgbox  MyDataObj(0)

Set MyDataObj = nothing
Set MyObj = nothing