Remove the first read:
reader = SqlHelper.ExecuteReader(SqlHelper.ConnectionString_SimphonI, Data.CommandType.StoredProcedure, "dbo.pd_vs_Ins_Bookings_SELECT", sqlParam)
While reader.Read
Dim obj As New CIns_Booking
If Not IsDBNull(reader("BookingID")) Then obj.BookingID = reader("BookingID")
If Not IsDBNull(reader("Trip")) Then obj.Trip = reader("Trip")
If Not IsDBNull(reader("Source")) Then obj.Source = reader("Source")
objList.Add(obj)
End While
Return objList