DSolve[B*WeierstrassPPrime[x, {g2, g3}]*y[x] + (a + A*WeierstrassP[x, {g2, g3}])*Derivative[1][y][x] + Derivative[3][y][x] == 0,y[x],x]