Database connection problem

dim strSql
dim objConn, objRS
       
        set objconn= Server.CreateObject("ADODB.Connection")
        objConn.Open "Driver={SQL SERVER};Server=achoonkalp;Database=taxi;"
       
        
        Set objRS = Server.CreateObject("ADODB.RecordSet")

        strSql="SELECT [SRate] FROM [Booking] where [BookingRef]=' " & book & "'"
                
             objRS.Open strSql, objConn, 3, 2, 1


        If not objRS.eof and not objRS.bof Then
        
            rate = objRS.Fields("SRate")
            response.Write("rate="& rate)
       else
           response.write("No matching records")
        End IF